3 способи швидкого вставлення розривів розділів у ваш документ Word

У цій статті ми зосередимося на тому, щоб показати вам 3 способи швидкого вставлення розривів розділів у ваш документ Word.

Розбиття розділів корисно для того, щоб розділити документ на розділи, глави тощо. Крім того, вставляти розриви розділів - це обов’язкова частина встановлення різних колонтитулів на різних сторінках.

Зазвичай нам доведеться перейти до сторінки та розташувати курсор у потрібному положенні. Далі натисніть «Розмітка сторінки» та «Розриви». А потім у спадному меню виберіть тип розбиття розділу. Таке провадження часом може бути нудним. Тому ми хочемо позбавити вас звичної рутини та прийняти швидке та брудне рішення.

Спосіб 1: Вставте розділ розділу на певну сторінку

1. Перш за все, натисніть “Alt + F11” у програмі Word, щоб викликати редактор VBA.
2. Далі створіть новий модуль, натиснувши “Звичайний” у лівій колонці.
3. Потім клацніть на вкладці «Вставка» на панелі меню.
4. І виберіть «Модуль» у спадному меню «Вставка».
5. Двічі клацніть на новий модуль, щоб відкрити його.
6. Вставте наступний макрос у область кодування:

Sub InsertBreakOnSpecificPage()
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  Selection.Collapse wdCollapseEnd
  Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub

7. Тепер натисніть «Виконати» або натисніть «F5», щоб виконати коди.
8. Далі введіть номер цільової сторінки у вікні запиту. І натисніть кнопку «OK», щоб продовжити.

Наразі ви вставили розділ розділу в кінці сторінки 2.

Примітка::

Якщо ви хочете відокремити кілька послідовних сторінок як розділ із використанням розривів розділів, вам потрібно вставити розділ розділу двічі, один в кінці останньої сторінки попереднього розділу і один в кінці останньої сторінки цього нового розділу .

У такому випадку, вставляючи перший розрив, ви повинні пам’ятати, що ввели правильний номер, який є номером останньої сторінки попереднього розділу.

Спосіб 2: Вставте розділ розділу на кожну сторінку документа

1. По-перше, встановіть і запустіть макрос, точно дотримуючись наведених вище кроків.
2. Потім замініть макрос таким:

Sub InsertBreakOnEachPage()
  Dim nTotalPageNumber As Integer
 
  For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Collapse wdCollapseEnd
    Selection.InsertBreak Type:=wdSectionBreakContinuous
  Next
End Sub

Цей макрос вставляє розділ розділу в кінець кожної сторінки поточного документа.

Спосіб 3: Вставте розділ розділу на кожну сторінку декількох документів

1. Для початку помістіть усі цільові документи в одну папку.
2. Потім аналогічним чином встановіть і запустіть макрос із відповідними інструкціями.
3. Цього разу використовуйте такі коди:

Sub InsertBreaksIntoMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim nTotalPageNumber As Integer
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
      Application.Browser.Target = wdBrowsePage
      ActiveDocument.Bookmarks("\page").Range.Select
      Selection.Collapse wdCollapseEnd
      Selection.InsertBreak Type:=wdSectionBreakContinuous
    Next
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Макрос запускає вікно "Огляд". Виберіть папку, в якій ви зберігаєте документи, і натисніть «ОК».

Процес повинен тривати не більше кількох секунд.

Зручний інструмент для корупції документів

Зіткнутися з пошкодженими документами - це неприємно. У такому випадку хороший та надійний інструмент, який може допомогти ремонт Word документи зможуть значно зняти тривогу. Тому потрібно бути гранично обережним, вибираючи ремонтний інструмент. Недостатня утиліта може спричинити подальшу шкоду.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі Відновлення Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com