4 métodos rápidos para eliminar saltos de página no deseados en su documento de Word

En esta publicación, nos centraremos en presentarte 4 métodos rápidos para eliminar los saltos de página no deseados en tu documento de Word.

Word inserta un salto de página automático al pasar de una página a la siguiente. Además, puedes insertar un salto de página manual al final de un fragmento de texto. De esta forma, el texto comenzará al principio de la página siguiente. Para saber cómo insertar un salto de página manual, consulta este artículo: 5 formas de insertar rápidamente saltos de página en su documento de Word

Sin embargo, debe comprender que los saltos de página automáticos son invisibles y, por lo tanto, no se pueden eliminar manualmente. Pero los saltos de página del manual insertados sí lo hacen. Por lo tanto, nuestro artículo le ofrecerá principalmente enfoques útiles para eliminar saltos de página manuales no deseados en documentos de Word.   

Método 1: eliminar los saltos de página manualmente

1. En primer lugar, debe hacer clic en el comando "Mostrar / Ocultar" en la pestaña "Inicio" para revelar todas las marcas y símbolos ocultos en el documento para que pueda ver el salto de página.
2. A continuación, seleccione un salto de página y presione "Eliminar" para deshacerse de él.
3. O puede hacer clic a la izquierda de un salto de página y luego presionar "Eliminar".

Método 2: utilizar la función "Buscar y reemplazar"

1. Para empezar, presione "Ctrl + H" para activar el cuadro "Buscar y reemplazar".
2. Luego, coloque el cursor dentro del cuadro de texto "Buscar qué" y haga clic en la pestaña "Más".
3. A continuación, haga clic en "Especial" y seleccione "Salto de página manual" en ese menú.
4. Por último, deje el cuadro "Reemplazar con" vacío y haga clic en "Reemplazar todo" para eliminar cada salto de página en el documento.

Método 3: ejecutar una macro para eliminar todos los saltos de página en un documento

1. En primer lugar, active el editor VBA en Word presionando "Alt + F11".
2. A continuación, haga clic en el proyecto "Normal" en la columna de la izquierda.
3. Luego haga clic en "Insertar" en la barra de menú y seleccione "Módulo".
4. Abra el módulo con doble clic y pegue los siguientes códigos allí:

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. Por último, presione "F5" para ejecutar códigos.

Método 4: eliminar todos los saltos de página en todos los documentos de una carpeta

Para eliminar todos los saltos de página en todos los documentos de una carpeta, puede utilizar este método.

1. Para instalar y ejecutar una macro, puede consultar los pasos del método 3.
2. Y recuerde reemplazar con esta macro a continuación:

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

La macro abrirá la ventana "Examinar". Seleccione la carpeta que contiene los documentos que desea buscar y haga clic en "Aceptar" para continuar.

Prepárese para un desastre de datos

Muchos de ustedes han sido conscientes de la aleatoriedad de la pérdida de datos. Para los usuarios de Word, también es recomendable estar bien preparado para cualquier desastre de datos. Y una de las mejores formas es obtener un reparación de docx herramienta por adelantado.

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 xlsx y pdf reparar productos de software. Para más información visite www.datanumen.com