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 SubCode 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 Sub3. 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.
