Тема: Поиск выделенных цветом слов
В большом тексте в WORD 2007 есть выделенные цветом отрывки.
Необходимо перед каждым не выделенным цветом отрывком ("Белым" ) поставить знак @ , а после этого отрывка #.
Заранее спасибо за помощь.
- viter.alex
- Модератор
- Неактивен
Re: Поиск выделенных цветом слов
Будет ли верным обратное? Т.е. после каждого выделенного отрывка поставить @, а перед каждым выделенным #?
Лучше день потерять — потом за пять минут долететь!
Re: Поиск выделенных цветом слов
Может быть и так
- viter.alex
- Модератор
- Неактивен
Re: Поиск выделенных цветом слов
Ну если может быть, тогда так:
Sub test()
Selection.HomeKey wdStory
With Selection.Find
.Highlight = True
.Text = ""
.Replacement.Text = "#^&@"
.Execute Replace:=wdReplaceAll
End With
'Снятие выделения цветом с добавленных символов
With Selection.Find
.ClearFormatting
.Highlight = True
.Text = "[\#\@]"
.MatchWildcards = True
.Replacement.ClearFormatting
.Replacement.Text = "^&"
.Replacement.Highlight = fales
.Execute Replace:=wdReplaceAll
End With
End SubЛучше день потерять — потом за пять минут долететь!
Re: Поиск выделенных цветом слов
Спасибо.
Re: Поиск выделенных цветом слов
Необходимо перед каждым не выделенным цветом отрывком ("Белым" ) поставить знак @ , а после этого отрывка #.