Макро-скрипт VBA для поиска / замены слов, затем выделите их, чтобы узнать, какие слова были изменены в документе Word

610
Chuck C.

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

Благодарю.

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
Просто запустите запись макроса, затем измените цвет подсветки, остановите запись макроса и посмотрите, какой код VBA вы получите. Скопируйте это в существующий код, и все готово. LPChip 6 лет назад 0
В связи с поиском / заменой я ищу макрос-скрипт для поиска чисел с запятой между ними (0,2 или 4,3 и т. Д.) И замены на запятые с десятичными (0,2 или 4,3). Для этого необходимо использовать подстановочный знак для любых цифр в этой ситуации. Мой поиск по групповым символам для этой ситуации пустует: - / Chuck C. 6 лет назад 0

0 ответов на вопрос

Похожие вопросы