Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment sélectionner ou supprimer du texte entre deux signets dans un document Word ?

Author Siluvia Last modified

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.

Word diaplaying content between two bookmarks

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.

Dialog box for entering the start bookmark name

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 :

Dialog box for entering the end bookmark name

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 :

Content between the specified bookmarks are selected

Supprimer du texte entre deux signets.

Content between the specified bookmarks are deleted

Office Tab : Intègre des interfaces à onglets dans Word, Excel, PowerPoint...
Navigate through documents using Office Tab
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 – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone 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 / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

✨ Kutools pour Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word