1 Тема от Сергей80

  • Сергей80
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.12.2013
  • Сообщений: 8

Тема: Подчеркивание текста макросом

Помогите пожалуйста!
Мне нужно чтобы макрос искал слова и подчеркивал их.
Я делал с помощью функции записать макрос, но видимо все что связано с изменением шрифта у меня не получается:
фот что выдает:


Sub Дождь()
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    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

2 Ответ от Сергей80

  • Сергей80
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.12.2013
  • Сообщений: 8

Re: Подчеркивание текста макросом

забыл написать:
в окошке замены a формате-шрифт я ставил подчеркивание и после нажатия кнопки заменить - слово подчеркивалось, но когда я запускаю сам макрос то слово не подчеркивается

3 Ответ от Сергей80

  • Сергей80
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.12.2013
  • Сообщений: 8

Re: Подчеркивание текста макросом

Разобрался.
вставил строку
.Replacement.Font.Underline = True
после строки .Replacement.Text = "холодный дождь"


странно, но у меня почему-то не сохраняются в макрорекордере все что связано с изменением шрифта.

4 Ответ от Сергей80

  • Сергей80
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.12.2013
  • Сообщений: 8

Re: Подчеркивание текста макросом

возникла уже немного другая проблема.
возможно ли как-то изменить код, чтобы вся строчка в которой есть заменямое слово - подчеркивалось:

например исходное значение:

18.12.2013 был холожный дождь

а после замены должно получится так:
18.12.2013 был холожный дождь