| |
Wordで特定の色で塗りつぶしをされた文字だけを検索して、
該当箇所をすべて選択したいです。
chatGPTに聞いた下記のコードでは、エラーメッセージが出て検索できませんでした。
どこが違うのか、ご教授いただけますと幸いです。
Sub FindShadedText()
Dim searchColor As Long
Dim rng As Range
Dim found As Boolean
' 検索する塗りつぶし色を設定（RGB値）
searchColor = RGB(255, 255, 0) ' 黄色の例
' ドキュメントの全範囲を設定
Set rng = ActiveDocument.Content
' 範囲の最初に移動
rng.Collapse Direction:=wdCollapseStart
' 塗りつぶし色を検索
found = False
Do While rng.Find.Execute(FindText:="", Format:=True)
If rng.Shading.BackgroundPatternColor = searchColor Then
rng.Select
found = True
Exit Do
End If
rng.Collapse Direction:=wdCollapseEnd
Loop
If Not found Then
MsgBox "指定された塗りつぶし色のテキストが見つかりませんでした。"
End If
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
- 24/7/28(日) 14:29 -
