Dans cet article, nous sommes heureux de partager avec vous deux méthodes rapides pour extraire les textes de même couleur de votre document Word.
De temps en temps, lors du formatage d'un document Word, nous sommes susceptibles d'appliquer une couleur de police à certains textes afin de les rayer pour une attention supplémentaire. Habituellement, ces mots colorés sont des contenus importants qui méritent à nouveau votre examen. Alors que diriez-vous de les exporter et de les récupérer ailleurs pour un contrôle clair plus tard ?
En nous concentrant sur cette demande, nous vous suggérons 2 raccourcis rapides au lieu d'interminables actions de couper et coller.
Méthode 1 : Utiliser la fonction "Rechercher"
- Tout d'abord, cliquez sur l'onglet "Accueil".
- Ensuite, allez dans le groupe "Édition" pour cliquer sur le bouton triangle à l'envers à côté de "Rechercher".
- Choisissez ensuite "Recherche avancée" dans la liste.
- Dans la boîte de dialogue "Rechercher et remplacer", placez le curseur dans la zone de texte "Rechercher quoi" et effacez tout contenu, le cas échéant.
- Cliquez ensuite sur le bouton "Plus".
- Cliquez maintenant sur le bouton "Format" et choisissez "Police".
- Dans la boîte de dialogue "Rechercher la police", cliquez sur le bouton déroulant derrière "Couleur de la police" pour choisir la couleur exacte que vous attribuez à vos textes.
- N'oubliez pas de cliquer sur "OK".
- Revenons maintenant à la case "Rechercher et remplacer" et cliquez sur "Rechercher dans".
- Enfin, choisissez "Document principal".
Tous les textes de la couleur cible seront alors sélectionnés. Vous pouvez ensuite appuyer sur « Ctrl+C » pour les copier et les coller à un autre emplacement en une seule opération.
Méthode 2 : exécuter une macro Word
- Avant toute chose, cliquez sur l'onglet « Développeur ».
- Cliquez ensuite sur "Visual Basic" pour déclencher l'éditeur VBA.
- Cliquez ensuite sur "Normal" puis sur "Insérer".
- Choisissez "Module" dans le menu.
- Double-cliquez ensuite sur le module pour activer l'espace de codage.
- Collez ensuite les codes :
Sub ExtractColoredTexts()
Dim objDoc As Document, objDocAdd As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objDocAdd = Documents.Add
objDoc.Activate
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorRed
.Text = ""
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objDocAdd.Range.InsertAfter objRange & vbCr
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- Cliquez maintenant sur le bouton "Exécuter".
Il y aura un nouveau document ouvert avec tous les textes extraits.
Remarque : dans la ligne de code ".Font.Color = wdColorRed", vous devez remplacer "wdColorRed" par la couleur réelle de vos textes. Pour une référence détaillée, vous pouvez visiter cette page : https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Problème de mot d'adresse
La plupart d'entre nous utilisons déjà régulièrement Word. Pourtant, malgré cela, nous pouvons rencontrer des problèmes importants, comme le plantage de Word. C'est un problème grave, car vos fichiers importants peuvent être compromis. Dans ce cas, il est conseillé de se procurer un Outil de réparation d'erreur de données Word qui récupérera les données de Word en quelques minutes seulement.
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris outil de réparation de problème de données xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com