¿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 existentes Ir a que cuadro de lista y luego ingrese el número de página de inicio que desea eliminar, y presione Participar 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 Participar 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! |
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar Páginas Específicas / Mesas / Formas / Párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegar a cualquier ubicación / Insertar automáticamente texto repetitivo / Alternar entre ventanas de documentos / 11 herramientas de conversión...
