3 spôsoby, ako rýchlo vložiť zlomy sekcií do dokumentu Word

V tomto článku sa zameriame na to, aby sme vám ukázali 3 spôsoby, ako rýchlo vložiť zlomy sekcií do vášho dokumentu Word.

Konce sekcií sú užitočné pri rozdelení dokumentu na sekcie, kapitoly atď. Okrem toho je vkladanie koncov sekcií nevyhnutnou súčasťou nastavenia rôznych hlavičiek alebo päty na rôznych stránkach.

Za normálnych okolností budeme musieť prejsť na stránku a nájsť kurzor na správnej pozícii. Ďalej kliknite na „Rozloženie stránky“ a „Konce“. Potom v rozbaľovacej ponuke vyberte typ prerušenia sekcie. Takéto konanie môže byť niekedy zdĺhavé. Preto vás chceme uchrániť od zaužívanej rutiny a prijať rýchle a špinavé riešenie.

Metóda 1: Vloženie zlomu sekcie na konkrétnu stránku

1. Najskôr stlačte „Alt + F11“ v programe Word, čím vyvoláte editor VBA.
2. Ďalej vytvorte nový modul kliknutím na „Normálny“ v ľavom stĺpci.
3. Potom kliknite na karte „Vložiť“ na paneli s ponukami.
4. V rozbaľovacej ponuke „Vložiť“ vyberte možnosť „Modul“.
5. Dvojitým kliknutím otvoríte nový modul.
6. Vložte nasledujúce makro do oblasti kódovania:

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. Teraz kliknite na „Spustiť“ alebo stlačte „F5“ na spustenie kódu.
8. Potom do poľa s výzvou zadajte číslo cieľovej strany. A kliknutím na tlačidlo „OK“ pokračujte.

Zatiaľ ste vložili zlom sekcie na koniec stránky 2.

Poznámky:

Ak chcete oddeliť niekoľko po sebe nasledujúcich stránok ako sekciu pomocou zlomov sekcií, musíte vložiť zlom sekcie dvakrát, jeden na koniec poslednej stránky predchádzajúcej sekcie a jeden na koniec poslednej stránky tejto novej sekcie. .

V takom prípade by ste si pri vkladaní prvého prerušenia mali pamätať na zadanie správneho čísla, ktoré je číslom stránky poslednej strany predchádzajúcej časti.

Metóda 2: Vloženie zlomu sekcie na každú stránku dokumentu

1. Najskôr nainštalujte a spustite makro podľa vyššie uvedených krokov.
2. Potom nahraďte makro týmto:

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

Toto makro vloží koniec sekcie na koniec každej stránky aktuálneho dokumentu.

Metóda 3: Vloženie zlomu sekcie na každú stránku viacerých dokumentov

1. Na začiatok umiestnite všetky cieľové dokumenty do rovnakého priečinka.
2. Potom podobne nainštalujte a spustite makro so správnymi pokynmi.
3. Tentokrát použite tieto kódy:

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. Makro spustí okno „Prehľadávať“. Vyberte priečinok, do ktorého ukladáte dokumenty, a kliknite na tlačidlo „OK“.

Proces nebude trvať dlhšie ako niekoľko sekúnd.

Šikovný nástroj na korupciu dokumentov

Je to frustrujúca skúsenosť s poškodenými dokumentmi. V takomto prípade dobrý a spoľahlivý nástroj, ktorý môže pomôcť opraviť Word dokumenty musia byť schopné veľmi zmierniť úzkosť človeka. Pri výbere nástroja na opravu preto musíte byť veľmi opatrní. Nedostatočná funkčnosť môže spôsobiť ďalšie škody.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Excel zotavenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S