3 mënyra për të futur shpejt ndarjet e seksioneve në dokumentin tuaj Word

Në këtë artikull, ne do të fokusohemi në t'ju tregojmë 3 mënyra për të futur shpejt prishjet e seksioneve në dokumentin tuaj Word.

Ndërprerjet e seksioneve janë të dobishme për të ndarë një dokument në seksione, kapituj, etj. Përveç kësaj, futja e ndarjeve të seksioneve është një pjesë e domosdoshme e vendosjes së titujve ose fundeve të ndryshme në faqe të ndryshme.

Normalisht, do të na duhet të lundrojmë në faqe dhe të gjejmë kursorin në pozicionin e duhur. Pastaj klikoni "Playout faqe" dhe "Breaks". Dhe më pas zgjidhni një lloj ndërprerjeje seksioni në menunë rënëse. Një procedurë e tillë ndonjëherë mund të jetë e lodhshme. Prandaj, ne duam t'ju shpëtojmë nga rutina e zakonshme dhe të miratojmë një zgjidhje të shpejtë dhe të pistë.

Metoda 1: Fut një ndarje seksioni në një faqe specifike

1. Para së gjithash, shtypni "Alt+ F11" në Word për të thirrur redaktorin VBA.
2. Më pas krijoni një modul të ri duke klikuar "Normal" në kolonën e majtë.
3. Pastaj klikoni në skedën "Fut" në shiritin e menusë.
4. Dhe zgjidhni "Modul" në menunë rënëse të "Fut".
5. Klikoni dy herë mbi modulin e ri për ta hapur atë.
6. Ngjitni makronë e mëposhtme në zonën e kodimit:

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. Tani, klikoni "Run" ose shtypni "F5" për të ekzekutuar kodet.
8. Pastaj futni numrin e faqes së synuar në kutinë e kërkesës. Dhe klikoni "Në rregull" për të vazhduar.

Deri më tani, ju keni futur një ndarje të seksionit në fund të faqes 2.

shënim:

Nëse dëshironi të ndani disa faqe të njëpasnjëshme si një seksion me përdorimin e ndarjeve të seksionit, duhet të futni dy herë ndarjen e seksionit, një në fund të faqes së fundit të seksionit të mëparshëm dhe një në fund të faqes së fundit të këtij seksioni të ri. .

Në një rast të tillë, gjatë futjes së thyerjes së parë, duhet të mbani mend të futni numrin e saktë që është numri i faqes së faqes së fundit të seksionit të mëparshëm.

Metoda 2: Fut një ndarje seksioni në çdo faqe të një dokumenti

1. Së pari, instaloni dhe ekzekutoni një makro duke ndjekur saktësisht hapat e mësipërm.
2. Pastaj zëvendësoni makro me këtë:

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

Kjo makro fut një ndarje të seksionit në fund të çdo faqeje të dokumentit aktual.

Metoda 3: Fut një ndarje seksioni në secilën faqe të dokumenteve të shumëfishta

1. Për të filluar, vendosni të gjitha dokumentet e synuara në të njëjtën dosje.
2. Pastaj në mënyrë të ngjashme, instaloni dhe ekzekutoni makro me udhëzimet e duhura.
3. Këtë herë, përdorni këto kode:

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. Makroja do të aktivizojë dritaren "Shfleto". Zgjidhni dosjen ku mbani dokumentet dhe klikoni "OK".

Procesi nuk do të zgjasë më shumë se disa sekonda.

Mjet i dobishëm për korrupsionin e dokumenteve

Është një përvojë zhgënjyese të hasësh me dokumente të dëmtuara. Në një skenar të tillë, një mjet i mirë dhe i besueshëm që mund të ndihmojë riparim Word dokumentet do të jenë në gjendje të lehtësojnë shumë ankthin. Prandaj, duhet të jeni jashtëzakonisht të kujdesshëm kur zgjidhni një mjet riparimi. Një shërbim i pamjaftueshëm mund të shkaktojë dëme të mëtejshme.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë Rimëkëmbja e Excel pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com