Comment sélectionner ou supprimer le texte situé 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 dévoile les méthodes efficaces pour y parvenir.

Sélectionner/supprimer du texte entre deux signets à l’aide de VBA

---

Sélectionner/supprimer du texte entre deux signets à l’aide de VBA

Supposons que votre document contienne deux signets, comme illustré ci-dessous. Grâce au code VBA suivant, vous pouvez sélectionner ou supprimer tout le contenu situé entre ces deux signets.

1. Dans le document, appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module, puis copiez le code ci-dessous dans la fenêtre du module.

Pour sélectionner ou supprimer du texte entre deux signets, utilisez les codes suivants :

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 pour Word, saisissez le nom du signet de départ dans la zone de texte, puis cliquez sur OK.

5. Dans la deuxième boîte de dialogue Kutools pour Word, saisissez le signet de fin, puis 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 pour Word s’affichera pour vous inviter à entrer le bon signet.

L’ensemble du contenu situé entre les signets spécifiés est alors immédiatement sélectionné ou supprimé. Consultez les captures d’écran.

Sélectionner du texte entre deux signets :

Supprimez le texte situé entre deux signets.