3 načina da brzo umetnete prelome odjeljka u Word dokument

U ovom članku ćemo se fokusirati na to da vam pokažemo 3 načina da brzo umetnete prijelome odjeljaka u Word dokument.

Prelomi sekcija su korisni za podjelu dokumenta na dijelove, poglavlja itd. Osim toga, umetanje prijeloma odjeljaka je neizostavan dio postavljanja različitih zaglavlja ili podnožja na različitim stranicama.

Obično ćemo se morati navigirati do stranice i locirati kursor na odgovarajuću poziciju. Zatim kliknite na “Izgled stranice” i “Prelomi”. Zatim odaberite tip prijeloma odjeljka na padajućem izborniku. Takav postupak ponekad može biti naporan. Stoga vas želimo spasiti od uobičajene rutine i usvojiti brzo i prljavo rješenje.

Metoda 1: Umetnite prijelom odjeljka na određenu stranicu

1. Prije svega, pritisnite “Alt+ F11” u Wordu da biste pozvali VBA editor.
2. Zatim kreirajte novi modul klikom na “Normal” u lijevoj koloni.
3. Zatim kliknite na karticu "Insert" na traci menija.
4. I odaberite “Module” na padajućem izborniku “Insert”.
5. Dvaput kliknite na novi modul da biste ga otvorili.
6. Zalijepite sljedeći makro na područje kodiranja:

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. Sada kliknite na “Run” ili pritisnite “F5” da izvršite kodove.
8. Zatim unesite broj ciljne stranice u polje za upit. I kliknite na "U redu" da biste nastavili.

Do sada ste umetnuli prijelom odjeljka na kraju 2. stranice.

Bilješka:

Ako želite odvojiti nekoliko uzastopnih stranica kao odjeljak korištenjem prijeloma odjeljka, trebate dvaput umetnuti prijelom odjeljka, jedan na kraju posljednje stranice prethodnog odjeljka i jedan na kraju posljednje stranice ovog novog odjeljka .

U tom slučaju, prilikom umetanja prve pauze, treba da zapamtite da unesete tačan broj koji je broj stranice posljednje stranice prethodnog odjeljka.

Metod 2: Umetnite prijelom odjeljka na svaku stranicu dokumenta

1. Prvo, instalirajte i pokrenite makro točno slijedeći gore navedene korake.
2. Zatim zamijenite makro sa ovim:

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

Ovaj makro umeće prelom odeljka na kraju svake stranice trenutnog dokumenta.

Metoda 3: Umetnite prijelom odjeljka na svaku stranicu više dokumenata

1. Za početak, stavite sve ciljne dokumente u istu mapu.
2. Zatim na sličan način instalirajte i pokrenite makro s odgovarajućim uputama.
3. Ovaj put koristite ove kodove:

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 će pokrenuti prozor “Pretraži”. Odaberite fasciklu u kojoj čuvate dokumente i kliknite na “OK”.

Proces neće trajati više od nekoliko sekundi.

Zgodan alat za oštećenje dokumenata

Frustrirajuće je iskustvo naići na oštećene dokumente. U takvom scenariju, dobar i pouzdan alat koji može pomoći popraviti Word dokumenti će moći uvelike da oslobode anksioznost. Stoga morate biti izuzetno oprezni pri odabiru alata za popravku. Nedovoljna upotreba može uzrokovati daljnju štetu.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel oporavak i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com