3 módszer a szakasztörések gyors beszúrására a Word dokumentumba

Ebben a cikkben 3 módot mutatunk be a szakasztörések gyors beszúrására a Word-dokumentumba.

A szakasztörések hasznosak a dokumentum szakaszokra, fejezetekre stb. történő felosztására. Emellett a szakasztörések beszúrása nélkülözhetetlen része a különböző fejlécek vagy láblécek különböző oldalakon történő beállításának.

Általában az oldalra kell navigálnunk, és a kurzort a megfelelő pozícióba kell helyeznünk. Ezután kattintson az „Oldalelrendezés” és a „Szünetek” elemre. Ezután válassza ki a szakasztörés típusát a legördülő menüből. Egy ilyen eljárás néha fárasztó lehet. Ezért szeretnénk megkímélni Önt a megszokott rutintól, és egy gyors és piszkos megoldást szeretnénk alkalmazni.

1. módszer: Szakasztörés beszúrása egy adott oldalra

1. Először is nyomja meg az „Alt+F11” gombot a Wordben a VBA-szerkesztő meghívásához.
2. Ezután hozzon létre egy új modult a bal oldali oszlopban található „Normál” gombra kattintva.
3. Ezután kattintson a „Beszúrás” fülre a menüsorban.
4. És válassza a „Modul” lehetőséget a „Beszúrás” legördülő menüjében.
5. Kattintson duplán az új modulra annak megnyitásához.
6. Illessze be a következő makrót a kódolási területre:

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. Most kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot a kódok végrehajtásához.
8. Ezután adja meg a céloldal oldalszámát a prompt mezőben. A folytatáshoz kattintson az „OK” gombra.

Eddig egy szakasztörést szúrt be a 2. oldal végére.

Megjegyzések:

Ha több egymást követő oldalt szakasztöréssel szeretne szeparálni, akkor kétszer kell szakasztörést beszúrnia, egyet az előző szakasz utolsó oldalának végére, egyet pedig az új szakasz utolsó oldalának végére. .

Ilyen esetben az első törés beszúrásakor ne felejtse el beírni a helyes számot, amely az előző szakasz utolsó oldalának oldalszáma.

2. módszer: Szúrjon be egy szakasztörést a dokumentum minden oldalára

1. Először is telepítsen és futtasson egy makrót a fenti lépéseket pontosan követve.
2. Ezután cserélje ki a makrót erre:

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

Ez a makró szakasztörést szúr be az aktuális dokumentum minden oldalának végére.

3. módszer: Szúrjon be egy szakasztörést több dokumentum minden oldalára

1. Először is, helyezze az összes céldokumentumot ugyanabba a mappába.
2. Ezután hasonló módon telepítse és futtassa a makrót a megfelelő utasításokkal.
3. Ezúttal használja a következő kódokat:

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. A makró elindítja a „Tallózás” ablakot. Válassza ki a mappát, ahol a dokumentumokat tárolja, és kattintson az „OK” gombra.

A folyamat nem tarthat tovább néhány másodpercnél.

Praktikus eszköz a dokumentumok korrupciójához

Frusztráló élmény a sérült dokumentumokkal találkozni. Ebben az esetben egy jó és megbízható eszköz, amely segíthet javítás Word a dokumentumok nagymértékben enyhíthetik a szorongást. Ezért rendkívül óvatosnak kell lennie a javítószerszám kiválasztásakor. Az elégtelen segédprogram további károkat okozhat.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve Excel helyreállítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com