Как удалить все пустые абзацы в Word?

Если документ охватывает 200 страниц с сотнями пустых абзацев, удаление всех пустых абзацев один за другим будет болезненным. Как быстро и эффективно удалить все пустые абзацы? Потратьте несколько минут на просмотр этого руководства, и вы найдете ответ.

Удалите все пустые абзацы с помощью функции поиска и замены

Удалите все пустые абзацы с помощью VBA

Удалите все пустые абзацы с помощью Kutools for Word

Удалите все пустые абзацы с помощью функции поиска и замены

Удивительный! Используйте эффективные вкладки в Word (Office), например Chrome, Firefox и New Internet Explorer!

Подробнее Скачать бесплатно

Никто не любит тратить много времени на удаление всех пустых абзацев один за другим. Функция «Найти и заменить» в Word обычно используется, если мы знаем, что символ пустого абзаца может быть найден как Метка абзаца в поле «Найти».

1. Нажмите Главная > Замените чтобы включить эту утилиту.

2. Нажмите Подробнее >> кнопку, чтобы открыть дополнительные параметры. См. Снимок экрана ниже:

3. Поместите курсор в Найдите то, что поле и выберите Знак абзаца из Особый выпадающее меню;

4. После выбора Знаки абзаца, там будет "^pЗнак, отображаемый в Найдите то, что поле.

5. Войти "^p" сделать "^ Р ^ р"В Найдите то, что поле и нажмите Заменить все.

Ноты:

"^p”Удалит не только все пустые абзацы, но и все знаки абзацев в документах, чтобы оставить весь текст слишком близко к одному абзацу.

"^ Р ^ р»Удалит только все пустые абзацы (метки пустых абзацев).

Удалите все пустые абзацы с помощью VBA

Если вы хотите использовать макрос для работы с текстовым документом, также доступен код VBA для удаления всех пустых абзацев в слове.

1. Нажмите «Alt-F11”, Чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Модули на Вставить вкладку, скопируйте и вставьте следующий код VBA в Модули окно.

Код VBA для удаления пустых абзацев:

Sub Deleemptyparagraphs ()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Text = "^ p ^ p"
.Replacement.Text = ""
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchByte = Ложь
.MatchAllWordForms = Ложь
.MatchSoundsLike = Ложь
.MatchWildcards = False
.MatchFuzzy = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
End Sub

4. Нажмите Запустить макрос на вкладке «Выполнить».

Удалите все пустые абзацы с помощью kutools for Word

Чтобы удалить все пустые абзацы в слове, встроенная функция требует нескольких шагов, а макрос кажется слишком сложным для понимания. Есть ли более простой способ помочь нам быстро удалить все пустые абзацы в слове? Да, Kutools for Word ваше лучшее решение.

Kutools for Word, удобная надстройка, включает группы функций, облегчающих вашу работу и расширяющих ваши возможности обработки текстовых документов. Бесплатная пробная версия на 45 дней! Получи это сейчас!

1. Пожалуйста, примените эту утилиту, нажав Кутулс > Пустые параграфы > Удалить метки пустых абзацев. Смотрите скриншот:

2. После нажатия Удалить метки пустых абзацев, все пустые абзацы будут удалены из всего документа.

Внимание: Если вы просто хотите удалить пустые абзацы из выбранной части документа, Kutools for Word также может вам помочь, пожалуйста, прочтите дополнительную информацию из здесь.

---

Рекомендуемые инструменты для повышения производительности Word

 

Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени

• Сложные и повторяющиеся операции можно производить разово за секунды.
• Вставляйте сразу несколько изображений из папок в документ Word.
• Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
• Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
• Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.

Узнать больше Загрузить сейчас покупка