3 moduri de a introduce rapid rupturi de secțiune în documentul Word

În acest articol, ne vom concentra pe a vă arăta 3 moduri de a insera rapid pauze de secțiune în documentul Word.

Sepărțiile de secțiune sunt utile pentru a împărți un document în secțiuni, capitole etc. În plus, inserarea de rupturi de secțiune este o parte indispensabilă pentru setarea diferitelor anteturi sau subsoluri pe diferite pagini.

În mod normal, va trebui să navigăm la pagină și să găsim cursorul în poziția corectă. Apoi faceți clic pe „Aspect pagină” și „Pauze”. Și apoi alegeți un tip de pauză de secțiune din meniul drop-down. O astfel de procedură poate fi uneori plictisitoare. Prin urmare, vrem să te salvăm de rutina obișnuită și să adoptăm o soluție rapidă și murdară.

Metoda 1: Inserați o întrerupere de secțiune pe o anumită pagină

1. În primul rând, apăsați „Alt+ F11” în Word pentru a invoca editorul VBA.
2. Apoi creați un modul nou făcând clic pe „Normal” în coloana din stânga.
3. Apoi faceți clic pe fila „Inserare” din bara de meniu.
4. Și alegeți „Modul” din meniul derulant „Insert”.
5. Faceți dublu clic pe modulul nou pentru a-l deschide.
6. Lipiți următoarea macrocomandă în zona de codificare:

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. Acum, faceți clic pe „Run” sau apăsați „F5” pentru a executa coduri.
8. Apoi introduceți numărul paginii țintă în caseta de solicitare. Și faceți clic pe „OK” pentru a continua.

Până acum, ați introdus o pauză de secțiune la sfârșitul paginii 2.

notițe:

Dacă doriți să separați mai multe pagini consecutive ca o secțiune cu ajutorul pauzelor de secțiune, trebuie să introduceți o pauză de secțiune de două ori, una la sfârșitul ultimei pagini a secțiunii anterioare și una la sfârșitul ultimei pagini a acestei noi secțiuni. .

Într-un astfel de caz, în timp ce introduceți prima pauză, ar trebui să vă amintiți că ați introdus numărul corect, care este numărul paginii ultimei pagini din secțiunea anterioară.

Metoda 2: Introduceți o întrerupere de secțiune pe fiecare pagină a unui document

1. În primul rând, instalați și rulați o macrocomandă urmând exact pașii de mai sus.
2. Apoi înlocuiți macrocomanda cu aceasta:

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

Această macrocomandă inserează o pauză de secțiune la sfârșitul fiecărei pagini a documentului curent.

Metoda 3: Introduceți o întrerupere de secțiune pe fiecare pagină de documente multiple

1. Pentru început, puneți toate documentele țintă în același folder.
2. Apoi, în mod similar, instalați și rulați macro cu instrucțiunile adecvate.
3. De data aceasta, folosește aceste coduri:

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. Macro-ul va declanșa fereastra „Răsfoiește”. Alegeți folderul în care păstrați documentele și faceți clic pe „OK”.

Procesul nu va dura mai mult de câteva secunde.

Instrument util pentru corupția documentelor

Este o experiență frustrantă să întâlnești documente deteriorate. Într-un astfel de scenariu, un instrument bun și de încredere care poate ajuta repara Word documentele trebuie să poată ameliora foarte mult anxietatea cuiva. Prin urmare, trebuie să fiți extrem de precauți atunci când alegeți un instrument de reparare. O utilitate insuficientă poate provoca daune suplimentare.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Recuperare Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com