1

Тема: Поиск выделенных цветом слов

В большом тексте в WORD 2007 есть выделенные цветом отрывки.
Необходимо перед каждым не выделенным цветом отрывком ("Белым" ) поставить знак @ , а после этого отрывка #.

Заранее спасибо за помощь.

2

Re: Поиск выделенных цветом слов

Будет ли верным обратное? Т.е. после каждого выделенного отрывка поставить @, а перед каждым выделенным #?

Лучше день потерять — потом за пять минут долететь!

3

Re: Поиск выделенных цветом слов

Может быть и так

4

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
Лучше день потерять — потом за пять минут долететь!

5

Re: Поиск выделенных цветом слов

Спасибо.

6

Re: Поиск выделенных цветом слов

Необходимо перед каждым не выделенным цветом отрывком ("Белым" ) поставить знак @ , а после этого отрывка #.