Приходилось ли вам когда-нибудь скаченную страницу из интернета открывать в Ворде? Иногда такие документы заполнены пустыми линиями. Хотите узнать, как удалить линию в Ворде? Давайте научимся этому. Хотя, на самом деле, это не пустые линии, а разрыв строки.
Как убрать линии с помощью «Найти и заменить»
Первый способ поможет вам убрать пустые линии под текстом с помощью популярного инструмента в Ворде.
- Вызовем окно «Найти и заменить». Вкладка «Главная» =>раздел «Редактирование» => кнопка «Заменить».
Горячие клавиши: CTRL + F (найти), CTRL + H (заменить). - Когда окно откроется, перейдите на вкладку «Заменить» и нажмите на кнопку «Больше >>».
- Нажмите на кнопку «Специальный» и в появившемся списке выберите пункт «Разрыв строки».
- В поле «Найти» наберите «^l» и нажмите на кнопку «Заменить все».
Как удалить линии с помощью скрипта VBA
Второй способ заключается в использовании макроса, который самостоятельно найдет и уберет линии в Ворде внизу страницы.
- Нажмите ALT + F11, чтобы вызвать Microsoft Visual Basic.
- В верхнем меню выберите «Insert» — «Module».
- В появившемся окне вставьте скопированный ниже код. Вставку можно сделать нажав правой кнопкой мыши и выбрав «Paste», либо с помощью CTRL + V.
- Запустите скрипт нажав на клавишу F5. Либо нажмите на зеленую стрелочку, как на скриншоте.
Sub Deleemptylines()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = «^l»
.Replacement.Text = «»
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Теперь вы знаете, как удалить пустые линии в Ворде. Надеюсь эти два способа вам помогли.