3 sätt att snabbt infoga sektionsbrytningar i ditt Word-dokument

I den här artikeln kommer vi att fokusera på att visa dig 3 sätt att snabbt infoga sektionsbrytningar i ditt Word-dokument.

Avsnittsbrytningar är användbara för att dela upp ett dokument i sektioner, kapitel etc. Dessutom är att infoga sektionsavbrott en oumbärlig del av att ställa in olika sidhuvuden eller sidfot på olika sidor.

Normalt måste vi navigera till sidan och hitta markören på rätt plats. Klicka sedan på "Sidlayout" och "Avbrott". Och välj sedan en sektionstyp på rullgardinsmenyn. Ett sådant förfarande kan ibland vara tråkigt. Därför vill vi rädda dig från den vanliga rutinen och anta en snabb och smutsig lösning.

Metod 1: Infoga ett sektionsavbrott på en specifik sida

1. Först och främst trycker du på “Alt + F11” i Word för att anropa VBA-redigeraren.
2. Skapa sedan en ny modul genom att klicka på "Normal" i den vänstra kolumnen.
3. Klicka sedan på fliken "Infoga" i menyraden.
4. Och välj "Modul" i rullgardinsmenyn för "Infoga".
5. Dubbelklicka på den nya modulen för att öppna den.
6. Klistra in följande makro på kodområdet:

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. Klicka nu på "Kör" eller tryck på "F5" för att köra koder.
8. Ange sedan sidnumret för målsidan i uppmaningsrutan. Klicka sedan på “OK” för att fortsätta.

Hittills har du lagt in en sektionsbrytning i slutet av sidan 2.

Anmärkningar:

Om du vill separera flera på varandra följande sidor som ett avsnitt med användning av sektionsbrytningar måste du infoga sektionsbrytning två gånger, en i slutet av den sista sidan i föregående avsnitt och en i slutet av den sista sidan i det nya avsnittet .

I ett sådant fall bör du komma ihåg att ange rätt nummer som är sidnumret på den sista sidan i föregående avsnitt när du infogar det första pausen.

Metod 2: Infoga ett sektionsavbrott på varje sida i ett dokument

1. För det första, installera och kör ett makro enligt ovanstående steg exakt.
2. Byt sedan ut makrot med det här:

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

Detta makro infogar en sektionsbrytning i slutet av varje sida i det aktuella dokumentet.

Metod 3: Infoga ett sektionsavbrott på varje sida i flera dokument

1. Till att börja med, placera alla måldokument i samma mapp.
2. Installera och kör sedan makro på samma sätt med korrekta instruktioner.
3. Den här gången använder du dessa koder:

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. Makrot ska aktivera "Bläddra" -fönstret. Välj mappen där du förvarar dokument och klicka på “OK”.

Processen tar inte mer än några sekunder.

Praktiskt verktyg för dokumentkorruption

Det är en frustrerande upplevelse att möta skadade dokument. I ett sådant scenario, ett bra och pålitligt verktyg som kan hjälpa reparera Word dokument ska kunna lindra en ångest mycket. Därför måste du vara extremt försiktig när du väljer ett reparationsverktyg. Otillräckligt verktyg kan orsaka ytterligare skador.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Excel-återställning och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com