Код символа абзаца перед таблицей

[Посетитель]

Уважаемые коллеги, приветствую.

Элементарный макрос для замены в Word двух символов абзаца на один не находит второй символ абзаца, если он перед таблицей. Какой у него код? Или в чем может быть проблема?

Пример макроса:
Sub Repl()
    Selection.Range.Find.Execute FindText:=vbCrLf & vbCrLf, ReplaceWith:=vbCrLf, Replace:=wdReplaceAll 
End Sub

Пример текста в Word:
любой текст
<пустая строка>
любая таблица

[Администратор]

Используемое вами выражение находит подряд два символа абзаца, но по неизвестным причинам не происходит замена. Вы можете это сделать в самом Ворде, без макроса: отобразите диалог "Найти и заменить", в поле "Найти" вставьте два знака абзаца, в поле "Заменить" вставьте один знак абзаца и щёлкните "Найти далее". Ворд найдёт эти два знака абзаца. Теперь щёлкните "Заменить" и замена не произойдёт.

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

[Посетитель 16.02.2024]

Здравствуйте. Тоже нужно решение этого вопроса. Найти (^p^p) и заменить (^p) не работает именно для абзацев, находящихся перед таблицей. Есть ли уже решение? Может есть макрос какой?

[Администратор]

Написал вам письмо на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.