3 Paraan para Mabilis na Maglagay ng Mga Seksyon sa Iyong Word Document

Sa artikulong ito, tututukan namin ang pagpapakita sa iyo ng 3 paraan upang mabilis na magpasok ng mga section break sa iyong Word document.

Ang mga section break ay kapaki-pakinabang upang hatiin ang isang dokumento sa mga seksyon, mga kabanata, atbp. Bukod dito, ang pagpasok ng mga section break ay isang kailangang-kailangan na bahagi ng pagtatakda ng iba't ibang mga header o footer sa iba't ibang mga pahina.

Karaniwan, kailangan nating mag-navigate sa pahina at hanapin ang cursor sa tamang posisyon. Susunod na i-click ang "Page Layout" at "Breaks". At pagkatapos ay pumili ng uri ng section break sa drop-down na menu. Ang ganitong proseso ay maaaring nakakapagod kung minsan. Samakatuwid, gusto ka naming iligtas mula sa karaniwang gawain at magpatibay ng mabilis-at-maruming solusyon.

Paraan 1: Maglagay ng Section Break sa isang Partikular na Pahina

1. Una sa lahat, pindutin ang “Alt+ F11” sa Word para i-invoke ang VBA editor.
2. Susunod na gumawa ng bagong module sa pamamagitan ng pag-click sa “Normal” sa kaliwang column.
3. Pagkatapos i-click ang tab na "Ipasok" sa menu bar.
4. At piliin ang "Module" sa drop-down na menu ng "Insert".
5. I-double click ang bagong module para buksan ito.
6. I-paste ang sumusunod na macro sa coding area:

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. Ngayon, i-click ang "Run" o pindutin ang "F5" upang magsagawa ng mga code.
8. Sunod, ilagay ang numero ng pahina ng target na pahina sa kahon na lilitaw. At i-click ang “OK” para magpatuloy.

Sa ngayon, naglagay ka ng section break sa dulo ng page 2.

nota:

Kung gusto mong paghiwalayin ang ilang magkakasunod na pahina bilang isang seksyon sa paggamit ng mga section break, kailangan mong magpasok ng section break nang dalawang beses, isa sa dulo ng huling pahina ng nakaraang seksyon at isa sa dulo ng huling pahina ng bagong seksyong ito. .

Sa ganoong kaso, habang ipinapasok ang unang pahinga, dapat mong tandaan ang pagpasok ng tamang numero na ang numero ng pahina ng huling pahina ng nakaraang seksyon.

Paraan 2: Maglagay ng Section Break sa Bawat Pahina ng isang Dokumento

1. Una, i-install at patakbuhin ang isang macro na sumusunod sa mga hakbang sa itaas nang eksakto.
2. Pagkatapos ay palitan ang macro ng isang ito:

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

Ang macro na ito ay naglalagay ng section break sa dulo ng bawat pahina ng kasalukuyang dokumento.

Paraan 3: Maglagay ng Section Break sa Bawat Pahina ng Maramihang Dokumento

1. Upang magsimula, ilagay ang lahat ng mga target na dokumento sa iisang folder.
2. Pagkatapos ay katulad nito, i-install at patakbuhin ang macro na may wastong mga tagubilin.
3. Sa pagkakataong ito, gamitin ang mga code na ito:

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. Dapat i-trigger ng macro ang window na "Browse". Piliin ang folder kung saan mo itinatago ang mga dokumento at i-click ang "OK".

Ang proseso ay tatagal ng hindi hihigit sa ilang segundo.

Magagamit na Tool para sa Korapsyon sa Dokumento

Nakakadismaya na makaharap ang mga sirang dokumento. Sa ganitong sitwasyon, isang mahusay at maaasahang tool na makakatulong ayusin ang Salita ang mga dokumento ay maaaring makapag-alis ng labis na pagkabalisa. Samakatuwid, kailangan mong maging lubhang maingat habang pumipili ng tool sa pag-aayos. Ang hindi sapat na utility ay maaaring magdulot ng karagdagang pinsala.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang Paggaling ng Excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa