¿Cómo eliminar varias páginas específicas en un documento de Word?

En un documento de Word, puede seleccionar el contenido de la página actual y luego presionar la tecla Eliminar para eliminar la página actual fácilmente. Pero, si necesita eliminar varias páginas de un archivo de Word grande, ¿cómo podría resolverlo rápidamente?

Elimine un rango de páginas en un documento de Word con la función Ir a

Elimine varias páginas específicas en un documento de Word con código VBA

Elimine un rango de páginas en un documento de Word con la función Ir a

Si desea eliminar un rango de páginas consecutivas de un documento de Word, la función Ir a puede hacerle un favor.

1. Inicie el documento de Word cuyas páginas desea eliminar.

2. Entonces presione F5 clave para abrir el Buscar y reemplazar cuadro de diálogo, debajo del Para ir pestaña, clic Página en el capítulo respecto a la Ir a que cuadro de lista y luego ingrese el número de página de inicio que desea eliminar, y presione Enviar para ir a la página específica, ver captura de pantalla:

2. Entonces, cierra esto Buscar y reemplazar cuadro de diálogo y presione F8 encender el Modo extendido.

3. Sigue presionando F5 clave para abrir el Buscar y reemplazar cuadro de diálogo, esta vez, ingrese el número de página final que desea eliminar, y luego presione Enviar llave. Se han seleccionado todas las páginas de la 15 a la 20 a la vez. Ver captura de pantalla:

4. Por fin, presione Borrar directamente para eliminar estas páginas a la vez.

Elimine varias páginas específicas en un documento de Word con código VBA

Para eliminar varias páginas específicas en un archivo de Word que no son consecutivas, el siguiente código VBA puede ayudarlo.

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: elimine varias páginas específicas en el archivo de Word:

Sub DeletePagesInDoc()
    Dim xRange As Range
    Dim xPage As String
    Dim xDoc As Document
    Dim xArr
    Dim I, xSplitCount As Long
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "KuTools for Word", "")
    xArr = Split(xPage, ",")
    xPageCount = UBound(xArr)
    For I = xPageCount To 0 Step -1
        Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I)
        xDoc.Bookmarks("\Page").Range.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que ingrese los números de página que desea eliminar, separe los números de página por comas, vea la captura de pantalla:

4. Y luego, haga clic en OK , todas las páginas que especificó se han eliminado a la vez.

---

Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

• Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
• Inserte varias imágenes en carpetas en un documento de Word a la vez.
• Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
• Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
• Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.

Leer más Descargar Ahora Comprar