Comment supprimer rapidement plusieurs pages dans votre document Word via VBA

Dans cet article, nous nous concentrerons sur la démonstration de la suppression de plusieurs pages dans votre document Word via VBA.

La rédaction d'un document nécessite des ajustements constants. Supprimer des pages de sommaire est tout aussi indispensable que d'autres modifications. Supprimer les textes inutiles est simple : la plupart des gens choisissent de sélectionner le texte, puis appuient sur la touche « Suppr » ou « Retour arrière ».

Cela vous donnera certainement ce que vous voulez. Mais il y a un moyen plus rapide de le faire. De plus, vous ignorez l'étape de sélection et supprimez plusieurs pages à la fois. L'approche attrayante consiste à exécuter une macro Word.

Supprimer la page actuelle

Pour ceux qui détestent faire une sélection sur une plage de texte, cela peut être votre bénédiction. Voyons d'abord comment supprimer la page actuelle via VBA.

1. Pour commencer, placez le curseur sur la page que vous souhaitez supprimer.
2. Ouvrez l'éditeur VBA dans Word en cliquant sur l'onglet "Développeur" puis sur "Visual Basic". Si l'onglet "Développeur" n'est pas encore disponible dans le ruban, appuyez sur "Alt + F11" à la place.
3. Deuxièmement, cliquez sur "Normal".
4. Cliquez ensuite sur "Insérer" et choisissez "Module" dans ce menu.
5. Ouvrez le nouveau module par double-clic.
6. Et collez-y les codes suivants :

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

7. Enfin, cliquez sur le bouton "Exécuter" ou appuyez sur "F5".

Supprimer plusieurs pages

1. Suivez les étapes ci-dessus pour installer et exécuter une macro.
2. Remplacez la macro par celle-ci :

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. L'exécution de la macro déclenchera une zone de saisie. Entrez le numéro de page des pages à supprimer et utilisez une virgule pour les séparer. N'entrez pas d'espace après la virgule.
4. Cliquez ensuite sur "OK" pour continuer.

Bien sûr, vous pouvez utiliser cette macro pour supprimer la page actuelle. Entrez simplement le numéro de page.

Ne laissez pas la corruption vous arrêter

Une perte de données, même minime, ralentit inévitablement votre travail quotidien et engendre des coûts supplémentaires. Pour garantir la sécurité de vos données, il est donc fortement conseillé de vous procurer un système de sauvegarde de vos données. doc dommage outil de réparation.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris corriger Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com