Автор створено

Практически каждый в наше время работает с компьютером в той или иной степени. И самой популярной программой и самой востребованной, является текстовый редактор. Бесспорно, большинство работают с редактором Microsoft Office Word. Часто при копировании текста из интернета и последующей вставкой возникает большое количество пустых абзацев. И удалять их вручную довольно длинное дело. Давайте ускорим работу до нескольких кликов мышкой.

Способ 1. На всякий случай рассмотрим, как удалить пустые строки вручную. Для примера я взял несколько абзацев из Википедии.

Порядок действий:

1. Ставим курсор перед первой буквой текста или после последней (это важно для правильной работы).

2. Нажимаем на кнопку «Заменить», которая находится на «Главная».

3. В поле «Найти» пишем ^0013{2;}. У поле «Заменить на» пишем ^p.

4. Остается нажать на кнопку «Заменить все».

Программа выполнит поиск и замену пустых строк на обычные абзацы. В конце работы выведется сообщение с количеством выполненных замен.

Скриншот результата работы:

о

Способ 2 (рекомендуется). Данный способ предусматривает добавление макроса и последующее его использование.

Порядок действий:

1. Копируем макрос:

Sub delVoidParagraphs()
'Удаление пустых абзацев в выделенном фрагменте
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = "^0013{2;}"
   .Replacement.Text = "^p"
   .MatchWildcards = True
   .Format = False
   .Forward = True
   If Selection.Type = wdSelectionIP Then
      .Wrap = wdFindContinue
   Else
      .Wrap = wdFindStop
   End If
   .Execute Replace:=wdReplaceAll
End With
Selection.Collapse direction:=wdCollapseStart
End Sub

2. Идем в «Вид → Макросы → Макросы».

3. Даем имя макросу (любое, без пробелов) и нажимаем «Создать».

4. Откроется окно визуального редактора Microsoft Visual Basic. Там уже будет текст с именем вашего макроса (у меня на скриншоте видно, что имя макроса delVoidParagraphs):

Sub delVoidParagraphs()
'
' delVoidParagraphs Макрос
'
'

End Sub

5. Удаляем данный код и заменяем на скопированный ранее.

6. Идем у «Вид → Макросы → Макросы», находим наш добавленный (delVoidParagraphs) и нажимаем «Выполнить». После окончания работы макроса все пустые строки будут заменены

Примеры протестированы на Windows 7 и текстовом редакторе Microsoft Office Word 2016.