Note: The other languages of the website are Google-translated. Back to English
English English

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 vous montrera des méthodes pour y faire face.

Sélectionnez / supprimez du texte entre deux signets avec VBA


Sélectionnez / supprimez du texte entre deux signets avec VBA

En supposant qu'il y ait deux signets dans votre document comme illustré 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 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 Module.

Pour sélectionner ou supprimer des textes entre deux signets, veuillez utiliser ce code:

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: supprimer 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. Dans le premier Kutools pour Word boîte de dialogue, entrez le nom du signet de départ dans la zone de texte et cliquez sur OK.

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

Notes: 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 la bonne.

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

Sélectionnez des textes entre deux signets:

Supprimez les textes entre deux signets.


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés