Comment puis-je automatiquement mettre en surbrillance et extraire du texte en couleur dans MS Word?

Question

J'ai un tas de documents à modifier. Les auteurs utilisent un texte bleu dans certaines parties des documents pour indiquer que ces mots doivent être liés.

Merci Cornélius pour le code de surligner du texte:

Sub HighlightNotBlack() 
    Dim char As Range 

For Each char In ActiveDocument.Characters 
If char.Font.Color <> wdColorAutomatic And char.Font.Color <> wdColorBlack Then 
    char.HighlightColorIndex = wdYellow 
End If 
Next 
End Sub 

Je voudrais étendre sur cette question. Est-il possible d'extraire uniquement le texte surligné dans un nouveau fichier de mots? Il devrait également être assez intelligent pour savoir que deux mots consécutifs ou plus dans une phrase apparaîtraient tous sur une ligne dans le nouveau document, par opposition à chaque mot ayant sa propre ligne dans le nouveau document. Je suppose qu'il pourrait rechercher toutes les sélections en surbrillance et ne les apporter que parce que tout le bloc de texte serait entièrement mis en évidence

Answer 1

Je suis venu avec quelque chose comme ça. Il met en évidence tous les caractères non-noirs et non-automatiques dans le document actif.

Sub HighlightNotBlack() 
Dim char As Range 

For Each char In ActiveDocument.Characters 
    If char.Font.Color <> wdColorAutomatic And char.Font.Color <> wdColorBlack Then 
     char.HighlightColorIndex = wdYellow 
    End If 
Next 
End Sub 

Answer 2

Salut c'est la solution parfaite pour vous. J'ai écrit ce code de macro et testé. http://blog.haneefputtur.com/2012/02/macro-to-extract-highlighted-words-from.html