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 for 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 for 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 le bon.
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.
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion
