1 Тема от Nano999

  • Nano999
  • рядовой
  • Неактивен
  • Зарегистрирован: 23.02.2016
  • Сообщений: 1

Тема: Выделение однотипных символов с последующим форматированием

нужно выделить все знаки "-" и после изменить цвет на светло-серый. Посредством ворда такого не могу сделать, помогите со скриптом(макросом?) плз.

2 Ответ от yshindin

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Выделение однотипных символов с последующим форматированием

Nano999 пишет:

нужно выделить все знаки "-" и после изменить цвет на светло-серый. Посредством ворда такого не могу сделать, помогите со скриптом(макросом?) плз.

Вот пример. Цвет можно подобрать.
Sub ChangeDashFontColor()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -603917569
    With Selection.Find
        .Text = "-"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Сайтyshindin