¿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.
Seleccione varias páginas específicas y luego elimínelas a la vez:
Si desea eliminar varias páginas específicas de un documento de Word grande, Kutools for Word's Seleccionar páginas La función puede ayudarlo a seleccionar las páginas que necesite primero y luego presionar Borrar para eliminarlos de una vez. Kutools for Word: con más de 100 prácticos complementos de Word, prueba gratuita y sin límite en 60 días. Haga clic para descargar y prueba gratuita ahora! |
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.


