3 formas de insertar rápidamente cortes de sección en su documento de Word

En este artículo, nos centraremos en mostrarte 3 formas de insertar rápidamente saltos de sección en tu documento de Word.

Los saltos de sección son útiles para dividir un documento en secciones, capítulos, etc. Además, insertar saltos de sección es una parte indispensable para configurar diferentes encabezados o pies de página en diferentes páginas.

Normalmente, tendremos que navegar hasta la página y ubicar el cursor en la posición adecuada. A continuación, haga clic en "Diseño de página" y "Saltos". Y luego elija un tipo de salto de sección en el menú desplegable. Este procedimiento a veces puede resultar tedioso. Por lo tanto, queremos salvarlo de la rutina habitual y adoptar una solución rápida y sucia.

Método 1: insertar un salto de sección en una página específica

1. En primer lugar, presione "Alt + F11" en Word para invocar el editor de VBA.
2. A continuación, cree un nuevo módulo haciendo clic en "Normal" en la columna de la izquierda.
3. Luego haga clic en la pestaña "Insertar" en la barra de menú.
4. Y elija "Módulo" en el menú desplegable de "Insertar".
5. Haga doble clic en el nuevo módulo para abrirlo.
6. Pegue la siguiente macro en el área de codificación:

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. Ahora, haga clic en "Ejecutar" o presione "F5" para ejecutar los códigos.
8. A continuación, introduzca el número de página de la página de destino en el cuadro que aparece. Haga clic en «Aceptar» para continuar.

Hasta ahora, ha insertado un salto de sección al final de la página 2.

Nota: :

Si desea separar varias páginas consecutivas como una sección con el uso de saltos de sección, debe insertar un salto de sección dos veces, una al final de la última página de la sección anterior y otra al final de la última página de esta nueva sección. .

En tal caso, mientras inserta el primer salto, debe recordar ingresar el número correcto que es el número de página de la última página de la sección anterior.

Método 2: insertar un salto de sección en cada página de un documento

1. En primer lugar, instale y ejecute una macro siguiendo exactamente los pasos anteriores.
2. Luego reemplace la macro con esta:

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

Esta macro inserta un salto de sección al final de cada página del documento actual.

Método 3: insertar un salto de sección en cada página de varios documentos

1. Para empezar, coloque todos los documentos de destino en la misma carpeta.
2. Luego, de manera similar, instale y ejecute la macro con las instrucciones adecuadas.
3. Esta vez, use estos códigos:

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. La macro activará la ventana "Examinar". Elija la carpeta donde guarda los documentos y haga clic en "Aceptar".

El proceso no tardará más de unos segundos.

Herramienta útil para la corrupción de documentos

Es una experiencia frustrante encontrarse con documentos dañados. En tal escenario, una herramienta buena y confiable que puede ayudar reparar palabra los documentos deben poder aliviar mucho la ansiedad. Por lo tanto, debe tener mucho cuidado al elegir una herramienta de reparación. Una utilidad insuficiente puede causar más daños.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo Recuperación de Excel y pdf reparar productos de software. Para más información visite www.datanumen.com