Выделение цветом нескольких фрагментов текста

Posted by obzor under Basic

Выделил пять фрагментов текста, покрасил в желтый все пять одним кликом. Макрорекордер выдал:

Selection.Range.HighlightColorIndex = wdYellow

Однако при использовании этого макроса желтым становится только последний выделенный фрагмент. Как изменить команду, чтобы пожелтели все пять выделенных?

Вождь

Например, поиском:

Sub A()
    Options.DefaultHighlightColorIndex = wdYellow
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindStop
        '.Text = "^t"
        .Replacement.Highlight = True
        .Format = True
        .Execute Replace:=Word.wdReplaceAll
    End With
End Sub

тема на форуме

Похожие статьи

• Макрос пакетной конвертации docx в doc
• Как запретить Юзеру лезть в колонтитулы?
• Как убрать висячие предлоги в Word?
• Работа с файлом через макросы (Microsoft Office Excel)
• Выбор данных из Access в Excel
• Shape в группе. Как понять в VBA, что выделена не просто группа, но и Shape (объект на группе)?
• Слияние для нескольких строк (VBA)
• Поиск разрыва страницы Delphi VBA Excel
• Как в операторе автофильтра указать, что выбираются выбираются все значения, кроме нуля?
• Макрос, который находит повторяющийся текст при его вводе и выводит окно предупреждения