3 viisi, kuidas kiiresti Wordi dokumenti jaotise katkestusi lisada

Selles artiklis keskendume kolmele võimalusele, kuidas kiiresti Wordi dokumenti jaotise katkestusi lisada.

Lõikevahed on kasulikud dokumendi jagamisel osadeks, peatükkideks jne. Pealegi on lõiguvahede sisestamine möödapääsmatu osa erinevate päiste või jaluste seadmisel erinevatele lehtedele.

Tavaliselt peame navigeerima lehele ja leidma kursori õiges kohas. Järgmisena klõpsake "Lehekülje paigutus" ja "Kausad". Seejärel valige rippmenüüst jaotise katkestuse tüüp. Selline menetlus võib mõnikord olla tüütu. Seetõttu tahame teid säästa tavapärasest rutiinist ja võtta kasutusele kiire ja määrdunud lahendus.

1. meetod: sisestage konkreetsele lehele jaotise katkestus

1. Kõigepealt vajutage VBA redaktori käivitamiseks Wordis "Alt + F11".
2. Järgmisena looge uus moodul, klõpsates vasakpoolses veerus "Tavaline".
3. Seejärel klõpsake menüüribal vahekaarti "Sisesta".
4. Ja valige "Sisesta" rippmenüüst "Moodul".
5. Uue mooduli avamiseks topeltklõpsake seda.
6. Kleepige kodeerimisalale järgmine makro:

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. Nüüd klõpsake koodide käivitamiseks nuppu "Käivita" või "F5".
8. Seejärel sisestage sihtlehe leheküljenumber ilmuvasse aknasse. Jätkamiseks klõpsake nuppu „OK“.

Siiani olete lisanud 2. lehekülje lõppu jaotise katkestuse.

märkused:

Kui soovite eraldada mitu järjestikust lehte sektsioonina lõiguvahede abil, peate lõigu katkemise sisestama kaks korda, üks eelmise jaotise viimase lehekülje lõppu ja üks selle uue jaotise viimase lehekülje lõppu .

Sellisel juhul peaksite esimese katkestuse sisestamisel meeles pidama õige numbri sisestamist, mis on eelmise jaotise viimase lehekülje leheküljenumber.

2. meetod: lisage dokumendi igale leheküljele jaotise katkestus

1. Esiteks installige ja käivitage makro, järgides täpselt ülaltoodud samme.
2. Seejärel asendage makro järgmisega:

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

See makro lisab aktiivse dokumendi iga lehe lõppu jaotise vaheaega.

3. meetod: lisage mitme dokumendi igale lehele jaotise vahe

1. Alustuseks pange kõik sihtdokumendid samasse kausta.
2. Seejärel installige ja käivitage makro koos õigete juhistega.
3. Seekord kasutage neid koode:

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 käivitab "Sirvi" akna. Valige kaust, kus dokumente hoiate, ja klõpsake nuppu "OK".

Protsess ei kesta kauem kui paar sekundit.

Mugav tööriist dokumentide korruptsiooni vastu

Kahjustatud dokumentidega kokku puutumine on masendav kogemus. Sellise stsenaariumi korral on abiks hea ja usaldusväärne tööriist paranda Word dokumendid peavad suutma ärevust palju leevendada. Seetõttu peate remonditööriista valimisel olema äärmiselt ettevaatlik. Ebapiisav utiliit võib põhjustada täiendavat kahju.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli taastamine ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom