3 būdai, kaip greitai įterpti skyrių pertraukas į savo „Word“ dokumentą

Šiame straipsnyje mes sutelksime dėmesį į 3 būdus, kaip greitai įterpti skyrių pertraukas į „Word“ dokumentą.

Skyrių pertraukos naudingos dalijant dokumentą į skyrius, skyrius ir pan. Be to, skyrelių lūžių įterpimas yra nepakeičiama dalis nustatant skirtingas antraštes ar poraštes skirtinguose puslapiuose.

Paprastai turėsime pereiti į puslapį ir rasti žymeklį tinkamoje vietoje. Tada spustelėkite „Puslapio išdėstymas“ ir „Pertraukos“. Tada išskleidžiamajame meniu pasirinkite skyriaus pertraukos tipą. Toks procesas kartais gali būti varginantis. Todėl norime jus išgelbėti nuo įprastos rutinos ir priimti greitą ir purviną sprendimą.

1 būdas: konkrečiame puslapyje įterpkite sekcijos pertrauką

1. Pirmiausia paspauskite „Alt + F11“ programoje „Word“, kad iškviestumėte VBA redaktorių.
2. Tada sukurkite naują modulį kairiajame stulpelyje spustelėdami „Normalus“.
3. Tada meniu juostoje spustelėkite skirtuką „Įterpti“.
4. Ir išskleidžiamajame meniu „Įterpti“ pasirinkite „Modulis“.
5. Dukart spustelėkite naują modulį, kad jį atidarytumėte.
6. Į kodavimo sritį įklijuokite šią makrokomandą:

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. Dabar spustelėkite „Vykdyti“ arba paspauskite „F5“, kad paleistumėte kodus.
8. Tada raginimo lauke įveskite tikslinio puslapio numerį. Ir spustelėkite „Gerai“, kad tęstumėte.

Iki šiol 2 puslapio pabaigoje įdėjote sekcijos pertrauką.

pastabos:

Jei norite atskirti kelis iš eilės einančius puslapius kaip skyrių naudodami skyrių pertraukas, turite du kartus įterpti sekcijos pertrauką, vieną ankstesnės dalies paskutinio puslapio pabaigoje ir vieną šios naujos dalies paskutinio puslapio pabaigoje. .

Tokiu atveju, įterpdami pirmą pertrauką, turėtumėte prisiminti, kad įvedėte teisingą numerį, kuris yra ankstesnės dalies paskutinio puslapio puslapio numeris.

2 būdas: kiekviename dokumento puslapyje įterpkite sekcijos pertrauką

1. Pirmiausia įdiekite ir paleiskite makrokomandą tiksliai atlikdami aukščiau nurodytus veiksmus.
2. Tada pakeiskite makrokomandą šia:

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

Ši makrokomanda įterpia sekcijos lūžį kiekvieno dabartinio dokumento puslapio pabaigoje.

3 būdas: įterpkite skyriaus pertrauką kiekviename kelių dokumentų puslapyje

1. Pirmiausia visus tikslinius dokumentus sudėkite į tą patį aplanką.
2. Tada panašiai įdiekite ir paleiskite makrokomandą su tinkamomis instrukcijomis.
3. Šį kartą naudokite šiuos kodus:

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. Makrokomandas turi suaktyvinti langą „Naršyti“. Pasirinkite aplanką, kuriame laikote dokumentus, ir spustelėkite „Gerai“.

Procesas turi trukti ne ilgiau kaip kelias sekundes.

Patogus dokumentų korupcijos įrankis

Varginanti patirtis susidūrus su sugadintais dokumentais. Tokiu atveju geras ir patikimas įrankis gali padėti taisyti Word dokumentai turi labai palengvinti nerimą. Todėl rinkdamiesi remonto įrankį turite būti ypač atsargūs. Nepakankamas įrankis gali sukelti tolesnę žalą.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel atkūrimas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com