Cómo eliminar rápidamente varias páginas en su documento de Word a través de VBA

En este artículo, nos centraremos en demostrarle cómo eliminar varias páginas en su documento de Word a través de VBA.

Redactar un documento requiere ajustes constantes. Y eliminar páginas de contenido es tan necesario como cualquier otra modificación. Eliminar textos innecesarios es fácil. La mayoría de las personas optan por seleccionar el texto y luego presionar la tecla "Suprimir" o "Retroceso".

Esto sin duda le dará lo que desea. Pero hay una forma más rápida de hacerlo. Además, omite el paso de selección y elimina varias páginas a la vez. El enfoque atractivo es ejecutar una macro de Word.

Eliminar la página actual

Para aquellos que odian hacer una selección en un rango de texto, esto puede ser su bendición. Primero, le mostraremos cómo eliminar la página actual a través de VBA.

1. Para empezar, coloque el cursor en la página que desea eliminar.
2. Abra el editor VBA en Word haciendo clic en la pestaña "Desarrollador" y luego en "Visual Basic". Si la pestaña "Desarrollador" aún no está disponible en la cinta, presione "Alt + F11" en su lugar.
3. En segundo lugar, haga clic en "Normal".
4. Luego haga clic en "Insertar" y elija "Módulo" en ese menú.
5. Abra el nuevo módulo haciendo doble clic.
6. Y pegue los siguientes códigos allí:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. Finalmente, haga clic en el botón "Ejecutar" o presione "F5".

Eliminar varias páginas

1. Siga los pasos anteriores para instalar y ejecutar una macro.
2. Reemplace la macro con esta:

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

3. La ejecución de una macro activará un cuadro de entrada. Ingrese el número de página de las páginas que se eliminarán y use una coma para separarlas. No ingrese un espacio después de la coma.
4. Luego haga clic en "Aceptar" para continuar.

Por supuesto, puede utilizar esta macro para eliminar la página actual. Simplemente ingrese el número de página.

No permita que la corrupción lo detenga

Una vez que ocurre un desastre de datos, seguramente ralentizará su trabajo diario y también tendrá que asumir el costo adicional. Para asegurarse de que sus datos estén seguros y a salvo, es mejor que consiga un doc daño herramienta de reparación.

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