2 façons rapides de supprimer par lots plusieurs signets dans votre document Word

Dans cet article, nous souhaitons vous proposer deux méthodes rapides pour supprimer par lots plusieurs signets dans votre document Word.

Normalement, vous pouvez ajouter ou supprimer un seul signet dans un document Word sans aucun obstacle. Cependant, lorsqu'il s'agit de plusieurs signets, vous pouvez avoir l'impression que vos mains sont liées.

Heureusement, il existe un outil puissant dans Word qui est l'éditeur VBA. Par conséquent, nous utiliserons des macros pour vous aider à supprimer par lots plusieurs signets dans un document.

Méthode 1 : suppression par lots de tous les signets d'un document

1. Premier et premierost, appelez l'éditeur VBA dans Word en appuyant sur "Alt + F11".
2. Ensuite, dans le panneau de gauche "Projet", cliquez sur "Normal".
3. Cliquez ensuite sur l'onglet "Insérer" et choisissez "Module" dans son menu.
4. Double-cliquez pour ouvrir le module.
5. Maintenant, collez-y les codes suivants :

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. Cliquez ensuite sur le bouton "Exécuter".
7. Ensuite, vous obtiendrez une boîte de demande. Et vous pouvez voir le nombre total de signets dans le document actuel. Cliquez sur "Oui" pour les supprimer tous ou sur "Non" pour quitter la macro.
8. Si vous choisissez "Oui", vous recevrez un message tel que ci-dessous :

Méthode 2 : suppression par lots de tous les signets d'une sélection

Certes, il y a aussi des moments où vous devez supprimer plusieurs signets mais en garder certains intacts. De même, nous exécuterons une macro sur une sélection pour faire le travail.

1. À starPour éteindre, répétez les étapes ci-dessus pour installer et exécuter une macro.
2. N'oubliez pas de remplacer macro par celle-ci :

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

3. Avant d'exécuter la macro, vous devez effectuer une sélection sur une plage de contenus.
4. Et lors du processus d'exécution des codes, vous recevrez les 2 mêmes boîtes de message indiquées dans la méthode 1.

Le résultat est que seuls les signets de la sélection seront supprimés.

Préparez-vous à la corruption de documents

La perte de données peut arriver à n'importe qui n'importe quand. Et son imprévisibilité nous fait tenter de ne pas tomber dans la malchance. Parlant du sujet à réparation docx, vous ne pouvez jamais manquer de choisir à l'avance un outil de réparation efficace.

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 réparation xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com