У меня есть изящный макрос ниже, который находит и заменяет слова, затем выделяет их, чтобы я знал, какие слова были изменены сценарием. Однако сначала я должен установить цвет подсветки, а затем запустить скрипт. Хотелось бы узнать, как отредактировать скрипт, чтобы мне не нужно было сначала устанавливать цвет выделения, просто запустите скрипт, затем выделенные слова будут выделены.

Благодарю.

Sub Highlight_X_F9()
'
' highlight_X Macro
' Highlight [X]
' "&chr(10)&"F9
'

'


findArray = Array("Blue 1", "Blue 2", "Blue 3")
replArray = Array("Red 1", " Red 2", " Red 3")

For i = 0 To UBound(findArray)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = findArray(i)
.Replacement.Text = replArray(i)
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i 

End Sub
|источник

0