Удаление разрыва разделов в word

Способ 1: Удаление вручную

Любой раздел в Word можно удалить вручную – делается это по следующей инструкции:

1. Перейдите в раздел меню «Главная», нажмите на кнопку «Отобразить все знаки» в блоке «Абзац». Все пробелы, разрывы, табуляции, переносы строк и прочие невидимые символы должны отобразиться.



2. Найдите строку «Разрыв раздела», установите курсор перед ней, нажмите на клавишу «Del».



Обратите внимание! После избавления от разрыва объединённый раздел примет форматирование части текста, последующей за удалённым разрывом.

Способ 2: Использование средства замены

Если нужно удалить сразу все разрывы в объёмном документе, можно воспользоваться функцией «Найти и заменить»:

1. Кликните по кнопке «Заменить» во вкладке «Главная» или воспользуйтесь сочетанием клавиш Ctrl + H.



2. В графу «Найти» вставьте набор символов «^b», поле «Заменить на» оставьте пустым. Нажмите на кнопку «Заменить все».



После завершения работы Word выведет информацию о количестве удалённых разделов.

Способ 3: Создание макроса

Для ускорения процедуры удаления разделов можно создать специальный макрос, который в дальнейшем будет доступен для использования в любом документе:

1. Перейдите во вкладку «Вид», нажмите на кнопку «Макросы». Задайте имя макроса, нажмите на «Создать». Для быстрого доступа можно использовать комбинацию клавиш Alt + F11.



2. Вставьте предложенный ниже код в область редактирования макроса, сохраните изменения нажатием на соответствующую кнопку.

   Sub DeleSectionBreaks()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^b"
.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



3. Воспользуйтесь комбинацией клавиш Alt + F8 для вызова окна работы с макросами. Выберите только что созданную задачу, нажмите на «Выполнить» — все разделы автоматически удалятся.



Читайте также:
Как удалить разрыв страницы в Word
Как в Ворде убрать интервал между абзацами

Разрыв раздела полезен, когда Вы хотите изменить форматирование в Ворде. Просто вставить разрыв раздела, чтобы начать новый раздел, но знаешь ли ты, как быстро удалить все разрывы раздела в длинном документе? Сегодня вы узнаете некоторые советы, как убрать все разрывы раздела в Word 2007, 2010, 2013, 2016, 2019.

Удалите все разрывы раздела по одному вручную

Если Вы не видите, где находятся разрывы разделов в документе, то можно их увидеть, включив на вкладке «Главная» кнопку «Отобразить все знаки».

1. Выберите разрыв раздела, который Вы хотите удалить.
2. Нажмите клавишу Delete на своей клавиатуре.
3. Удерживайте клавишу “Ctrl”, чтобы выбрать все разрывы раздела один за другим, а затем нажмите клавишу Delete. Но это может быть очень долго и сложно, чтобы выбрать таким образом все разрывы раздела, к примеру, если документ содержит 200 страниц.

Удаление разрыва раздела будет влиять на форматирование, подобно тому как удаляют заголовки и нижние колонтитулы в разделе, или текст над разрывом будет отформатирован, как текст, который был под ним.

Удалите все разрывы раздела с опцией «Найти и заменить»

1. Нажмите Главная > Заменить.
2. На экране появиться диалоговое окно «Найти и заменить». Нажмите кнопку «Больше», чтобы показать больше вариантов, как на скриншоте:
3. Установите курсор в поле Найти и выберите «Разрыв раздела» из выпадающего меню «Специальный».
4. В поле «Найти» наберите “^b” и нажмите кнопку «Заменить все».

Удалите все разрывы раздела, используя VBA

Запустите этот макрос, который сам может удалить все разрывы раздела, при этом он сохранит заголовки и нижние колонтитулы в разделе.

1. Нажмите “Alt-F11”, чтобы открыть Microsoft Visual Basic;
2. Нажмите Вставить > Модуль, и затем введите следующий код VBA в окне редактирования модуля.

Код VBA удаления всех разрывов раздела в Ворде:

Sub DeleSectionBreaks()
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = "^b"
 .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

3. Затем нажмите кнопку «Запустить макрос», чтобы выполнить код и разрывы раздела будут удалены.

Как видите, все не сложно. Теперь вы знаете несколько способов, как убрать все разрывы раздела в Word.

Немного юмора:

На форуме:
«Чем можно оттереть монтажную пену с пальцев?
Блин… теперь еще и с клавиатуры… «.