先日と基本一緒です。見つかったものを黄色の蛍光ペンで塗ります。
Sub Test3()
Dim mRng As Range
Set mRng = ActiveDocument.Range
With mRng.Find
.Font.Bold = True
.Font.Color = wdColorAutomatic 'もしくはwdBlack '
Do While .Execute = True
mRng.HighlightColorIndex = wdYellow
Loop
End With
End Sub
お礼
わかりやすく丁寧に教えていただきありがとうございます! 昨日に続いて、大変助かりました!