VBA-Word Поиск и замена символов...

[Rust]

Как удалить из текста "Символ абзаца" при условии, что он присутствует в тексте в комбинации символов - "Символ абзаца"+"любая русская буква в нижнем регистре"

[GSerg]

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

[Pavel55]

Знак абзаца ^p (галочка и английская буква p)

У меня была проблемы в своё время. Был файл, где были написаны строки текста через одну пустую строку, т.е.
- текст
- пустая строка (как бы щёлкнули лишний раз Enter)
- и опять текст.

Надо было удалить эти пустые строки. Я сделал это через замену (Ctrl+H): ^p^p заменил на ^p

P.S. Знак абзаца есть в меню Поиска (Ctrl+F) - Замены (Ctrl+H) - нажмите кнопку Больше - Специальный - Знак абзаца

[Rust]

Про стандартный механизм поиска и замены я помню.
И, если речь идёт о лишних пробелах или абзацах, то без вариантов - поиск и замена.
Но здесь надо найти символ абзаца, проверить код следующего за ним символа и, если это код в интервале 224-255, то удалить знак абзаца или заменить его на пробел.
То есть без макроса не обойтись. Знаю, что там всего пять строк кода, но VBA-Word знаю не очень.

[GSerg]

Воспользуйся поиском тогда.
http://bbs.vbstreets.ru/viewtopic.php?t=31075

[Krasnaja Shapka]

я так делал:

Код: Выделить всё

Const RusArray As String = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
With Selection.Find
       .ClearFormatting
       .Replacement.ClearFormatting
       .Wrap = wdFindContinue
       .Forward = True
       .Format = False
       .MatchCase = True

       For i = 1 To Len(RusArray)
           myChar = Mid(RusArray, i, 1)
           .Text = "^p" & myChar
           .Replacement.Text = " " & myChar
           .Execute Replace:=wdReplaceAll
       Next
End With

но уверен что есть более быстрый вариант...

[Rust]

Спасибо!