Vba word удалить разрыв раздела

Разрыв раздела полезен, если вы хотите изменить форматирование в слове. Вставить разрыв раздела, чтобы начать новый раздел, легко, но знаете ли вы, как быстро удалить все разрывы разделов в длинном документе? Ниже приведены несколько советов по удалению всех разрывов разделов в слове 2007/2010.

  • Удалить один разрыв раздела вручную
  • Удалите все разрывы разделов с помощью функции поиска и замены
  • Удалите все разрывы разделов с помощью VBA
  • Один щелчок, чтобы удалить все разрывы разделов с помощью Kutools for Word

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

Этот метод поможет вам отобразить все знаки абзаца и скрытые символы форматирования в документе Word, а затем легко вручную удалить указанный разрыв раздела. См. Следующие шаги:

1. Нажмите Главная > (Показать / скрыть отметки редактирования), чтобы отобразить все знаки абзаца и скрытые символы форматирования в текущем документе.

2. Поместите курсор перед указанным разрывом раздела, а затем нажмите Удалить ключ, чтобы удалить его. Смотрите скриншот:

3. Чтобы удалить дополнительные разрывы разделов, повторите шаг 2 выше.

Один щелчок, чтобы удалить все разрывы (страницы / столбца / раздела) из выделения или всего документа в Word

По сравнению с отображением символов форматирования и удалением каждого разрыва вручную по одному, Kutools for Word поддерживает ряд функций для удаления разрывов одним щелчком мыши: (1) Удалите все виды разрывов из выделенных или целых документов; (2) удалить все разрывы страниц / столбцов / разделов из выделенных или целых документов.

Удалите все разрывы разделов с помощью Найти и заменить функция в Word

Вы также можете удалить все разрывы разделов из текущего документа Word с помощью функции «Найти и заменить» в Word. Пожалуйста, сделайте следующее:

1. Нажмите Главная > Замените (или нажмите Ctrl + H одновременно), чтобы открыть диалоговое окно «Найти и заменить». Смотрите скриншот:

2. В появившемся диалоговом окне «Найти и заменить», пожалуйста (1) напишите ^b в Найти то, что коробка, (2) ничего не вводите в Заменить поле, а затем (3) щелкните значок Заменить все кнопка. Смотрите скриншот:

3. Появится диалоговое окно Microsoft Word, в котором будет указано, сколько разрывов разделов было удалено. Пожалуйста, нажмите на OK чтобы закрыть его.

4. Закройте диалоговое окно «Найти и заменить».

На данный момент все разрывы разделов уже удалены из текущего документа.


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

Помимо вышеуказанной функции поиска и замены, вы также можете быстро удалить все разрывы разделов из текущего документа с помощью VBA в Word. Пожалуйста, сделайте следующее:

1, нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окно;

2. Нажмите Вставить > Модули, а затем вставьте следующие коды VBA в новое окно модуля.

VBA: удалить все разрывы разделов в Word

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. Затем нажмите Run или нажмите F5 ключ для запуска кода. И тогда разрывы разделов сразу уберут сразу.


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

Если у вас есть Kutools for Word установлен, вы можете быстро удалить все разрывы разделов из текущего документа одним щелчком мыши. Удалить разрывы разделов характерная черта. Пожалуйста, сделайте следующее:

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

Нажмите Кутулс > Перерывы > Удалить разрывы разделов. Смотрите скриншот:
документ удалить все разрывы разделов 001
Затем появится диалоговое окно с запросом на повторное подтверждение. Щелкните значок Да кнопку, чтобы продолжить.

Теперь все разрывы разделов сразу удаляются из текущего документа сразу.

Внимание: Это Удалить разрывы разделов функция также поддерживает удаление всех разрывов разделов из выделения: (1) выберите часть, в которой вы удалите разрывы разделов, и (2) нажмите на Кутулс > Перерывы > Удалить разрывы разделов.

Просмотр и редактирование нескольких документов Word с вкладками в Firefox, Chrome, Internet Explore 10!

Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет просматривать несколько документов Word в одном окне Word и легко переключаться между ними, щелкая их вкладки. Нажмите, чтобы получить полную бесплатную пробную версию!
Просматривайте несколько документов Word в одном окне как Firefox


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

выстрел kutools word kutools tab 1180x121

выстрел kutools word kutools plus tab 1180x120

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

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

Комментарии (45)


Оценок пока нет. Оцените первым!

25 / 0 / 0

Регистрация: 25.10.2011

Сообщений: 25

1

Убрать разрыв раздела

08.11.2011, 17:24. Показов 10022. Ответов 2


Студворк — интернет-сервис помощи студентам

в Вордовском документе нужно объединить строки, ясное дело убираю в макросах chr(13), но просматриваю документ и с некоторыми строками не прокатывает. Заглядываю что такое за непечатный знак, оказывается -разрыв раздела текущей страницы- . Можно ли убрать это дело программно?



0



Watcher_1

356 / 162 / 27

Регистрация: 21.06.2011

Сообщений: 350

08.11.2011, 17:29

2

Вот тут гляньте Форматирование таблиц в Word

Писал Busine2009

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'Удаляем Разрывы страниц
    With ActiveDocument.Range.Find
        .Text = "^m"
        .Replacement.Text = "^p"
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With



1



25 / 0 / 0

Регистрация: 25.10.2011

Сообщений: 25

09.11.2011, 12:15

 [ТС]

3

))))))
Watcher_1, спасибо большущее, это то что надо )



0



Как удалить разрыв разделов в Ворде

На чтение 3 мин Просмотров 2.4к.

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

Содержание

  1. Удалите все разрывы раздела по одному вручную
  2. Удалите все разрывы раздела с опцией «Найти и заменить»
  3. Удалите все разрывы раздела, используя VBA

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

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

как удалить разрыв разделов в ворде

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

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

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

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

Удалите все разрывы раздела, используя 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.

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

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

I got a VBA word on the internet to delete page sections in word, but the code deletes all section breaks of the entire document, I wanted to delete only the page selected separately from the others, what kind of change should I make in the code to execute this action?enter image description here

enter image description here

  • microsoft-word
  • vba

cybernetic.nomad's user avatar

asked Jun 12, 2019 at 16:46

Elienay Junior's user avatar

8

  • What does «page sections» mean? The ^b stands for section break, while ^m is for manual page breaks.

    Jun 12, 2019 at 17:44

  • If you are already on the correct page, why not just delete the section break?

    Jun 12, 2019 at 18:30

  • I can not delete section break, so I got a VBA code that does this while running it, however it deletes all section breaks of the entire document, I wanted to make it as exclude only the specified page by placing the cursor over the page to exclude

    Jun 12, 2019 at 18:57

  • Is there a key that excludes the section break ?? because I can not delete any!

    Jun 12, 2019 at 18:57

  • More info is needed. Is any part of the document protected? What happens when you try to delete a section break? You are viewing the document with paragraph marks and so on visible, right?

    Jun 12, 2019 at 19:36

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Макрос для замены всех разрывов раздела

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 13 ]

1 25.07.2017 15:06:53

  • genmon
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.01.2017
  • Сообщений: 6
  • Поблагодарили: 2

Тема: Макрос для замены всех разрывов раздела

Здравствуйте.
В документе около 500 страниц. Каждая страница заканчивается разрывом раздела. Вы не могли бы подсказать макрос для замены разрывов раздела на другой знак (например, на знак абзаца) во всем файле?

Пробовал с помощью

2 Ответ от genmon 25.07.2017 15:12:12

  • genmon
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.01.2017
  • Сообщений: 6
  • Поблагодарили: 2
  • За сообщение: 1

Re: Макрос для замены всех разрывов раздела

Почему-то предыдущее сообщение отображается не полностью.


Пробовал с помощью «Найти и заменить» (^b заменить на ^p), но почему-то заменяются не все разрывы раздела (именно разрывы раздела, а не разрывы страницы). Некоторые разрывы раздела остаются. При этом если я ищу вручную разрывы раздела (нажимаю «найти далее» в окне «найти и заменить», то очередной разрыв раздел отыскивается, но когда нажимаю на кнопку «заменить», разрыв раздела остаётся)

Заранее спасибо!

3 Ответ от shanemac51 08.02.2018 10:59:36

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: Макрос для замены всех разрывов раздела

genmon пишет:

Почему-то предыдущее сообщение отображается не полностью.


Пробовал с помощью

4 Ответ от shanemac51 08.02.2018 11:00:45

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: Макрос для замены всех разрывов раздела

возможно это разрыв на текущей странице(например при колонках на листе)

5 Ответ от azur 03.07.2019 07:42:36

  • azur
  • сержант
  • Неактивен
  • Зарегистрирован: 06.08.2011
  • Сообщений: 27

Re: Макрос для замены всех разрывов раздела

Новую тему не стал создавать, ибо проблема почти такая же…
Слияние идёт их экселя в ворд в поля, расположенные в ячейках таблицы.
Как великому неудобству, каждая таблица создаётся на новой странице. И под каждой таблицей располагается:

=====Разрыв раздела (со следующей страницы)=====

(см. файлы примера в прицепе. В файле 4 страницы, по таблице на каждой странице; разрывов раздела, соответственно, всего три: между 1/2, 2/3, 3/4 страницами).
Как автоматизировать удаление разрыва раздела?
———————
После замены ^b удаляется только разрыв 3/4. И то — на самом деле остаётся, но только как бы зажимается между 3 и 4 таблицами.

Post’s attachments

1. С разрывом раздела.docx 24.41 Кб, 1 скачиваний с 2019-07-03 

You don’t have the permssions to download the attachments of this post.

6 Ответ от yshindin 03.07.2019 10:14:38

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171
  • За сообщение: 1

Re: Макрос для замены всех разрывов раздела

azur пишет:

. . .
После замены ^b удаляется только разрыв 3/4. И то — на самом деле остаётся, но только как бы зажимается между 3 и 4 таблицами.
. . .

В вашем документе в конце таблиц какой-то разделительный символ, по нажатии на который клавишей <Del> соседние таблицы объединяются. Вот с помощью этого макроса я в конце каждой таблицы убираю этот символ, а затем вставляю разрыв столбца:

Sub DelEndOfTableChars()
Dim tbl As Table
Dim itbl As Long
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst
On Error Resume Next
For itbl = ActiveDocument.Tables.count To 1 Step -1
    Set tbl = ActiveDocument.Tables(itbl)
    tbl.Range.Select
    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Delete Unit:=wdCharacter, count:=1
    Selection.InsertBreak Type:=wdColumnBreak
Next itbl
On Error GoTo 0
End Sub

Попробуйте.

7 Ответ от azur 05.07.2019 01:46:15

  • azur
  • сержант
  • Неактивен
  • Зарегистрирован: 06.08.2011
  • Сообщений: 27

Re: Макрос для замены всех разрывов раздела

Спасибо! Работает  smile
==========

8 Ответ от azur 05.07.2019 01:51:47

  • azur
  • сержант
  • Неактивен
  • Зарегистрирован: 06.08.2011
  • Сообщений: 27

Re: Макрос для замены всех разрывов раздела

«какой-то разделительный символ» — вот он и генерируется (видимо) во время слияния и указан как Разрыв раздела…  hmm

Я для других целей делал другой документ, тоже с шаблоном слияния. И из-за этого какого-то_символа пришлось делать шаблон без таблицы.
Разрывы раздела генерировались, НО все эти разрывы без проблем удалялись через «Найти ^b и заменить». А вот если присутствует таблица в шаблоне слияния, то находится и удаляется только последний разрыв в файле результата слияния.  sad
—————
Мммм…. Можете подсобить с удалением всех пустых строк в таблицах? Т.е. во всех таблицах документа найти полностью пустые строки и удалить их.  /// Или это уже другая тема? roll

9 Ответ от yshindin 05.07.2019 10:35:48

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171
  • За сообщение: 1

Re: Макрос для замены всех разрывов раздела

azur пишет:

. . .
Мммм…. Можете подсобить с удалением всех пустых строк в таблицах? Т.е. во всех таблицах документа найти полностью пустые строки и удалить их.  /// Или это уже другая тема? roll
. . .

Наверное, другая тема. В ваших таблицах есть объединенные ячейки, поэтому Word не разрешает в подобных таблицах доступ к отдельным строкам как объектам (напр., с целью удаления). Если бы таблица была консистентной, то удаление строк целиком было бы возможным.
Нет времени возиться с такой таблицей. Это может выглядеть, напр., так: перебирать все ячейки таблицы, определяя номер строки и столбца (через vbInformation). Затем в цикле следить, произошла ли смена строки и заодно содержали ли все ли ячейки последней строки какие-то данные. Если таким образом выясняется, что строка была пустой, то попытаться  по ячейкам, начиная с первой ячейки строки, удалить эту строку. Правда, при этом можно нарваться на многочисленные риски с получением кривой таблицы.
Можно попытаться применить и какой-то другой подход.

10 Ответ от azur 08.07.2019 01:21:29

  • azur
  • сержант
  • Неактивен
  • Зарегистрирован: 06.08.2011
  • Сообщений: 27

Re: Макрос для замены всех разрывов раздела

Спасибо!…(( Мда….
На просторах нашёл макрос:

Sub DelEndOfTableChars()
Dim tbl As Table
Dim itbl As Long
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst
On Error Resume Next
For itbl = ActiveDocument.Tables.count To 1 Step -1
    Set tbl = ActiveDocument.Tables(itbl)
    tbl.Range.Select
    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Delete Unit:=wdCharacter, count:=1
    Selection.InsertBreak Type:=wdColumnBreak
Next itbl
On Error GoTo 0

End Sub

…но он (в моём документе) удаляет пустые строки, которые пустые не полностью, а начиная со 2 столбца (а такие строки нужны). Можно что-то подкрутить, чтобы удалял только полностью пустые?

11 Ответ от azur 08.07.2019 01:45:40

  • azur
  • сержант
  • Неактивен
  • Зарегистрирован: 06.08.2011
  • Сообщений: 27

Re: Макрос для замены всех разрывов раздела

Стоп!  Не тот модуль скопировал.. Это ваш код  smile
Вот правильный:

Sub macros_del_rows()
Dim w(6)
 
For i = 1 To Word.ActiveDocument.Tables.Count
  With ActiveDocument.Tables(i)
    ' save widths
    For k = 1 To 6
     w(k) = .Columns(k).Width
    Next k
    For j = .Rows.Count To 1 Step -1
      If .Cell(j, 2).Range.Text = Chr(13) & Chr(7) Then
      .Rows(j).Delete
      End If
    Next j
    ' return widths
    For k = 1 To 6
     .Columns(k).Width = w(k)
    Next k
    End With
Next i
 
End Sub

12 Ответ от yshindin 08.07.2019 10:19:59

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Макрос для замены всех разрывов раздела

azur пишет:

Стоп!  Не тот модуль скопировал.. Это ваш код  smile
Вот правильный:

Sub macros_del_rows()
Dim w(6)
 
For i = 1 To Word.ActiveDocument.Tables.Count
  With ActiveDocument.Tables(i)
    ' save widths
    For k = 1 To 6
     w(k) = .Columns(k).Width
    Next k
    For j = .Rows.Count To 1 Step -1
      If .Cell(j, 2).Range.Text = Chr(13) & Chr(7) Then
      .Rows(j).Delete
      End If
    Next j
    ' return widths
    For k = 1 To 6
     .Columns(k).Width = w(k)
    Next k
    End With
Next i
 
End Sub

Я уже вам отвечал, что у вас таблицы с объединенными ячейками, поэтому операции вроде

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

13 Ответ от yshindin 08.07.2019 10:55:04

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171

Re: Макрос для замены всех разрывов раздела

yshindin пишет:

. . .
Я уже вам отвечал, что у вас таблицы с объединенными ячейками, поэтому операции вроде

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

Поэтому можно пробовать удалять строки не через объекты Table.Row, а использовать Selection.Rows. Например, так:

Sub DeleteEmptyRowsInTables()
Dim i As Long
Dim tbl As Table
Dim j As Long
Dim cl As Cell
Dim clt As String
Dim remp as Boolean
 
For i = 1 To ActiveDocument.Tables.count
    Set tbl = ActiveDocument.Tables(i)
    With tbl
        ccl = .Columns.count
        For j = .Rows.count To 1 Step -1
            remp = True
            For icl = 1 To ccl
                Set cl = Nothing
                On Error Resume Next
                Set cl = .Cell(j, icl)
                On Error GoTo 0
                If cl Is Nothing Then
                    remp = False
                Else
                    clt = cl.Range.Text
                    clt = Replace(clt, Chr$(13), "")
                    clt = Replace(clt, Chr$(7), "")
                    clt = Trim(clt)
                    If clt <> "" Then
                        remp = False
                    End If
                End If
            Next icl
            If remp Then
                .Cell(j, 1).Select
                Selection.Collapse Direction:=wdCollapseStart
                Selection.MoveRight Unit:=wdCharacter, count:=ccl + 1, Extend:=wdExtend
                Selection.Rows.Delete
            End If
        Next j
    End With
Next i
 
End Sub

Сообщений [ 13 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Макрос замены шрифта
  • Макрос для замены на степень
  • Нужен макрос замены пробелов
  • Макрос для замены содержимого ссылок
  • Макрос для замены текста и вставки/редактирования колонтитула
  • Макрос быстрого поиска и замены но (не обрабатывает двойные слова)
  • Вставка разрывов таблиц
  • Вставка разрывов строк

Like this post? Please share to your friends:
  • Vba word удалить выделенное
  • Vba word удалить весь текст
  • Vba word удаление страницы
  • Vba word убрать выделение
  • Vba word текущий документ