Мне нужно выделить все зеленые блики в файле .docx одновременно. Я предполагаю, что необходим макрос, но я не знаю, как его скомпилировать. Может ли кто-нибудь помочь мне с этим?
Я нашел этот код, но он удаляет все блики после того, как нашел их, а мне нужно только выбрать их:
Sub Highlight()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
.Highlight = True
Do While .Execute(FindText:="", Forward:=True) = True
If r.HighlightColorIndex = wdBrightGreen Then
r.HighlightColorIndex = wdAuto
r.Collapse 0
End If
Loop
End With
End Sub