Макрос: заключение текста в скобки

[darthraziel]

Задача: найти в тексте курсивный текст и заключить его в [скобки].
Начальное решение:

For Each Paragraph In ActiveDocument.Paragraphs
With Paragraph.Range.Find    
    .ClearFormatting
    .Font.Italic = True
    .Text = ""
    .Replacement.Text = "[^&]"
    .Wrap = wdFindStop
    .Format = True
    .Execute Replace:=wdReplaceAll
End With
Next Paragraph

Проблема: для двух курсивных слов, находящихся на стыке абзацев, скобки расставляются следующим образом:

Первый [абзац
Второй] абзац

Тогда как должно быть:

Первый [абзац]
[Второй] абзац

[darthraziel]

Проблема, судя по всему, в том, что любой символ, который добавляется после ^&, вставляется в начало следующего абзаца. Подскажите пожалуйста, как это устранить?

[Пименов Александр]

Попробуйте сделать все знаки абзаца не курсивными, а потом уже Ваш цикл

With ActiveDocument.Range.Find    
    .ClearFormatting
    .Font.Italic = True
    .Text = "^p"
    .Replacement.Text = "^p"
    .Replacement.Font.Italic = False
    .Wrap = wdFindStop
    .Format = True
    .Execute Replace:=wdReplaceAll
End With
For Each Paragraph In ActiveDocument.Paragraphs
With Paragraph.Range.Find    
    .ClearFormatting
    .Font.Italic = True
    .Text = ""
    .Replacement.Text = "[^&]"
    .Wrap = wdFindStop
    .Format = True
    .Execute Replace:=wdReplaceAll
End With
Next Paragraph

[darthraziel]

Сообщение от Пименов Александр

Попробуйте сделать все знаки абзаца не курсивными, а потом уже Ваш цикл

Спасибо большое, я сам до этого додумался где-то буквально час назад Как раз хотел написать об этом.

[viter.alex]

А зачем делать поиск, перебирая абзацы? Это же замедляет работу макроса. Почему не запустить просто поиск по всему документу?