Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Savez-vous comment sélectionner ou supprimer le contenu entre deux signets dans un document Word? Cet article va vous montrer des méthodes pour y faire face.

Sélectionner / supprimer du texte entre deux signets avec VBA


Sélectionner / supprimer du texte entre deux signets avec VBA

En supposant que votre document comporte deux signets (voir la capture d'écran ci-dessous), vous pouvez sélectionner ou supprimer tout le contenu entre ces deux signets avec le code VBA suivant.

1. Dans le document, appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez le code ci-dessous dans la fenêtre du module.

Pour sélectionner ou supprimer des textes entre deux signets, utilisez le code suivant:

Code VBA: sélectionnez 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: Supprimez le 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. appuie sur le F5 clé pour exécuter le code.

4. En premier Kutools for Word boîte de dialogue, entrez le nom du favori dans la zone de texte, puis cliquez sur OK.

5. Dans la seconde Kutools for Word boîte de dialogue, entrez le signet de fin et cliquez sur OK. Voir la capture d'écran:

Note: Si le nom du signet que vous avez entré n’existe pas dans le document, une autre boîte de dialogue Kutools for Word apparaîtra pour vous rappeler de saisir le nom correct.

Ensuite, tout le contenu entre les signets spécifiés est sélectionné ou supprimé immédiatement. Voir les screenshots.

Sélectionnez des textes entre deux signets:

Supprimer des textes entre deux signets.



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.