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