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.



Outils de productivité Word recommandés

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

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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.