Comment sélectionner ou supprimer du texte entre deux signets dans un document Word ?
Savez-vous comment sélectionner ou supprimer le contenu situé entre deux signets dans un document Word ? Cet article vous montrera des méthodes pour y parvenir.
Sélectionner/supprimer du texte entre deux signets avec VBA
Sélectionner/supprimer du texte entre deux signets avec VBA
Supposons qu'il y ait deux signets dans votre document comme le montre la capture d'écran ci-dessous, vous pouvez sélectionner ou supprimer tout le contenu entre ces deux signets à l'aide du code VBA suivant.
1. Dans le document, appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module, puis copiez le code ci-dessous dans la fenêtre Module.
Pour sélectionner ou supprimer des textes entre deux signets, veuillez utiliser les codes ci-dessous :
Code VBA : Sélectionner du texte entre deux signets spécifiés dans Word :
Sub SelectBetweenBookmarks()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Select
End Sub
Code VBA : Supprimer du texte entre deux signets spécifiés dans Word :
Sub DeleteBetweenBookmarks ()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Delete
End Sub
3. Appuyez sur la touche F5 pour exécuter le code.
4. Dans la première boîte de dialogue Kutools for Word, saisissez le nom du signet de départ dans la zone de texte et cliquez sur OK.
5. Dans la deuxième boîte de dialogue Kutools for Word, saisissez le signet de fin et cliquez sur OK. Voir la capture d'écran :
Remarque : Si le nom du signet que vous avez saisi n'existe pas dans le document, une autre boîte de dialogue Kutools for Word s'affichera pour vous rappeler d'entrer celui correct.
Ensuite, tout le contenu entre les signets spécifiés est immédiatement sélectionné ou supprimé. Voir les captures d'écran.
Sélectionner du texte entre deux signets :
Supprimer du texte entre deux signets.
Office Tab : Intègre des interfaces à onglets dans Word, Excel, PowerPoint...![]() |
Améliorez votre flux de travail dès maintenant.En savoir plus sur Office Tab Téléchargement gratuit |
Meilleurs outils de productivité pour Office
Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...
📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...
✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...
🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...
➕ Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...
🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...
⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

Meilleurs outils de productivité pour Office
Kutools pour Word - 100+ outils pour Word
- 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
- 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
- ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
- 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
- ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR