Word VBA удалить пустой абзац после таблицы

Узнай цену своей работы

Формулировка задачи:

Есть вот такой вот файлик (для примера). Как в нем автозаменой удалить лишние абзацы ? Если б без таблиц - "^p^p" в поиске отлично находит лишние абзацы. Но как найти пустой абзац после таблицы ?

Решение задачи: «Word VBA удалить пустой абзац после таблицы»

textual
Листинг программы
Sub hj()
  Dim t As Table
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each t In ActiveDocument.Tables
        Err.Clear
        While Err.Number = 0 And t.Range.Characters.Last.Next = Chr(13)
            t.Range.Characters.Last.Next.Delete
        Wend
    Next
    Application.ScreenUpdating = True
End Sub

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы