ドキュメントを検索し、スペース、単語「for」、およびこのサイトの変更されたコードを使用してこの「 for 」のような別のスペースのすべての出現箇所を強調表示するマクロを作成しようとしています。これを取得しました:
Sub findfunction()
If (findHL(ActiveDocument.Content, "[ for ]")) = True Then MsgBox "Highlight Comma's and Coordinating Conjunctions Done", vbInformation + vbOKOnly, "Highlight Result"
End Sub
Function findHL(r As Range, s As String) As Boolean
Options.DefaultHighlightColorIndex = wdYellow
r.Find.Replacement.Highlight = True
r.Find.Execute MatchWholeWord:=True, FindText:=s, MatchWildcards:=True, Wrap:=wdFindContinue, Format:=True, replacewith:="", Replace:=wdReplaceAll
findHL = True
End Function
問題は、文字 f、o、および r だけがすべて強調表示されることです。個々の文字ではなく、シーケンス「 for 」が見つかったときにのみ強調表示したい。私はこれが初めてで、ここからどこへ行くべきかわからないので、助けていただければ幸いです。ありがとう