Удаление пустых страниц — Word
Чтобы удалить страницу с текстом, графикой или пустыми абзацами, вы выберите содержимое и нажмите кнопку Удалить. Вы также можете:
- Щелкните или нажмите в любом месте страницы, которая вы хотите удалить, и нажмите CTRL+G.
- В поле Введите номер страницы введите \page .
- Нажмите клавишу ВВОД, а затем нажмите кнопку Закрыть.
- Убедитесь, что выбрана страница с содержимым, а затем нажмите клавишу DELETE на клавиатуре.
- Щелкните или нажмите в любом месте страницы, которая вы хотите удалить, и нажмите option+⌘+G.
- В поле Введите номер страницы введите \page .
- Нажмите клавишу ВВОД, а затем нажмите кнопку Закрыть.
- Убедитесь, что выбрана страница с содержимым, а затем нажмите клавишу DELETE на клавиатуре.
Чтобы удалить пустые страницы в середине или в конце документа, см. удаление пустой страницы.
Пошаговая инструкция как удалить пустые строки в Word?
Невзирая на тот факт, что многие пользователи ПК умеют работать с текстовым редактором Microsoft Word, все же большинство из них допускает грубые ошибки. Одной из таких грубых ошибок можно назвать использование множества пустых строк для отделения одной части текста от другой вместо использования функции разделения строк. Чтобы убрать пустые строки из документа, можно вручную их несколько минут или час удалять, или же применить специальные команды, которые автоматически подчистят текст. Также уметь удалять лишние пустые строки полезно для студентов, так как практически все файлы, скачанные из сети, неправильно оформлены и имеют пустые строки в Word.
Удаляем пустые строки в Word
Для правильного понимания того, что мы хотим сделать, рассмотрим простой пример на нашем тексте. Как видите, имеются лишние отступы. Мы рассмотрим, как удалить пустые строки в Ворде официальным способом.
Для того, чтобы убрать пустые строки в Word, стоит обратиться к функции Замены. Для этого переходим во вкладку «Главная» и выбираем «Заменить» (можно вызвать комбинацией клавиш Ctrl+H).
Появится небольшое окно. Переходим во вкладку «Заменить» и нажимаем на кнопку «Больше».
Появиться дополнительное меню. Здесь нужно развернуть ветку «Специальных знаков» и выбрать «Знак абзаца».
В поле «Найти» автоматически появится прописанная команда значка абзаца, а именно ^p.
Теперь проставляем (копируем знак ^p) в поле «Найти» несколько раз (сколько примерно у вас отступов). Выглядеть это будет следующим образом.
В поле «Заменить» вставляем только один символ ^p. Нажимаем «Заменить все».
Программа сама подчистит лишние отступы.
Чтобы в дальнейшем не использовать лишних знаков в Microsoft Word, стоит включить отображение всех знаков. Для этого в разделе «Абзац» вкладки «Главная» стоит нажать на специальную кнопку.
Представленный способ удаления лишних отступов, абзацев в Word работает с версиями редактора Microsoft Word 2007, 2010, 2016 и выше.
Как удалить пустые строки в ворде
Практически каждый в наше время работает с компьютером в той или иной степени. И самой популярной программой и самой востребованной, является текстовый редактор. Бесспорно, большинство работают с редактором Microsoft Office Word. Часто при копировании текста из интернета и последующей вставкой возникает большое количество пустых абзацев. И удалять их вручную довольно длинное дело. Давайте ускорим работу до нескольких кликов мышкой.
Способ 1. На всякий случай рассмотрим, как удалить пустые строки вручную. Для примера я взял несколько абзацев из Википедии.
Порядок действий:
1. Ставим курсор перед первой буквой текста или после последней (это важно для правильной работы).
2. Нажимаем на кнопку «Заменить», которая находится на «Главная».
3. В поле «Найти» пишем ^0013 . У поле «Заменить на» пишем ^p.
4. Остается нажать на кнопку «Заменить все».
Программа выполнит поиск и замену пустых строк на обычные абзацы. В конце работы выведется сообщение с количеством выполненных замен.
Скриншот результата работы:
Способ 2 (рекомендуется). Данный способ предусматривает добавление макроса и последующее его использование.
Порядок действий:
1. Копируем макрос:
Sub delVoidParagraphs()
‘Удаление пустых абзацев в выделенном фрагменте
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = «^0013»
.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 Макрос
‘
‘
5. Удаляем данный код и заменяем на скопированный ранее.
6. Идем у «Вид → Макросы → Макросы», находим наш добавленный (delVoidParagraphs) и нажимаем «Выполнить». После окончания работы макроса все пустые строки будут заменены
Примеры протестированы на Windows 7 и текстовом редакторе Microsoft Office Word 2016.
Удаление пустых строк в таблице (Microsoft Office Word)
Автоматически создаются документы в ворде на несколько сотен страниц состоящие из текста и таблиц. Вопрос как удалить пустые строки в табличной части документа.
Sub DeleteEmptyRows() On Error Resume Next Dim oSelRng As Range 'Область из которой обрабатывать таблицы Dim oTbl As Table 'Текущая таблица Dim oCell As Cell 'Ячейка в таблице Dim oRowRng As Range 'Диапазон для строки Dim iStart As Long 'Начало первой пустой ячейки в строке Dim iEnd As Long 'Конец последней пустой ячейки в строке Dim i As Long 'Счетчик строк в таблице Dim j As Long 'Счетчик таблиц Dim sEmptyString As String 'Служебная строка Set oSelRng = Selection.Range 'Запоминаем диапазон выделения 'Перебираем таблицы в выделении, начиная с конца For j = oSelRng.Tables.Count To 1 Step -1 Set oTbl = oSelRng.Tables(j) 'Запоминаем таблицу 'Перебираем ячейки в первом столбце For i = oTbl.Rows.Count To 1 Step -1 If Len(oTbl.Cell(i, 1).Range.Text) = 2 Then 'Если ячейка пустая, т.е. содержит только конец абзаца и конец ячейки If Err.Number <> 5941 Then 'Если такая ячейка существует Set oCell = oTbl.Cell(i, 1) 'Запоминаем первую ячейку в строке If Not oCell Is Nothing Then 'Если ячейка запомниалась iStart = oCell.Range.Start 'Запоминаем ее начало Do While Len(oCell.Next.Range.Text) = 2 'Теперь ищем последнюю пустую ячейку в этой же строке iEnd = oCell.Next.Range.End 'Запоминаем ее конец Set oCell = oCell.Next Loop Set oRowRng = oSelRange.Document.Range(iStart, iEnd) 'Запоминаем диапазон от начала первой пустой ячейки до конца последней 'Удаляем из строки знаки абзаца и конца ячейки sEmptyString = Replace(oRowRng.Text, ChrW(13) & ChrW(7), "") If Len(sEmptyString) = 0 Then 'Если строка пустая, oRowRng.Cells.Delete ' то ячейки удаляем End If End If Else: Err.Clear 'очищаем ошибку End If End If Next i Next j End Sub
Похожие статьи
- Вставить текст в определенную строку ячейки таблицы в ворде
- Извлечь фотографии из doc (docx) файла
- Экспорт в Word из Memo
- Скопировать данные из Edit в Word
- Как из delphi вставить символ в word?
- Словарь словоформ русского языка
- Запуск макроса в открытом на данный момент Word
- Как макросом брать данные с word документов в excel?
- Как экспортировать таблицу ehlib в word?
- Добавить данные из DBgrid в Ms Word