Modification de texte mis en évidence une couleur différente

J'ai quelques simple .les fichiers doc que j'ai fait dans Word 2007 où j'ai changé la couleur du texte et utilisé faits saillants de comparer certains des textes similaires. Ce que je voudrais faire est de changer toutes les occurrences de texte en vert ou gris mettant en différentes couleurs pour chaque.

Je suis sûr qu'il y est une façon simple de le faire avec VBA, mais tout autre type de réponses sont également les bienvenus.

EDIT: Pendant que j'apprécie les réponses, qui me permet de garder le .les fichiers doc .docs est préféré.

OriginalL'auteur Eugene M | 2008-10-23

  1. 3

    Ce n'est pas à partir de 2007, mais l'idée devrait vous satisfaire. Cet exemple modifie actuelle de mettre en évidence à la nouvelle valeur par défaut en surbrillance (wdBrightGreen) et tout texte en vert au rouge.

    Sub ChangeColor
Options.DefaultHighlightColorIndex = wdBrightGreen

    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorBrightGreen
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

    OriginalL'auteur Fionnuala

  2. 1

    Vous pouvez toujours enregistrer le fichier au format HTML, et remplacer des couleurs. La couleur est représentée avec 

    <span style='color:red'>...

    et de mettre en évidence est

    <span style='background:yellow;mso-highlight:yellow'>...

    Doit être facile à manipuler si votre document est assez simple.

    Modifier que les réponses de la modifier dans la question: quand vous avez fini, de le ré-ouvrir le fichier et enregistrez le fichier en tant que .doc.

    En fait, c'est un peu plus compliqué parce que les mso-mettre en évidence:quelque chose de paires clé-valeur peut être caché parmi d'autres de telles paires (concernant l'encodage, la langue, le choix de la police, etc.). Mon conseil est de chercher mso-mettre en évidence:quelque chose quelque part à l'intérieur d'un attribut de style d'un élément span.

    OriginalL'auteur buti-oxa

  3. 1

    Je pense qu'on peut mettre en évidence un article de la couleur du texte, puis choisissez "sélectionner le texte avec mise en forme similaire" option à partir de la sélectionner du texte à l'option de menu sur l'onglet Accueil. Ensuite, il suffit de sélectionner la couleur du texte requis.
    Espérons que cela fonctionne.

    OriginalL'auteur Bruce

  4. 0

    Cela devrait fonctionner pour votre but:

    Sub RehiliteAll()

    Const YOUR_REQUIRED_COLOR_IDX As Integer = 6 'RED'
    Dim doc As Range
    Set doc = ActiveDocument.Range

    With doc.Find
        .ClearFormatting 'resets default search options'
        .Highlight = True
        .Wrap = wdFindStop

        While .Execute

            If doc.HighlightColorIndex = YOUR_REQUIRED_COLOR_IDX Then
                doc.Select
                MsgBox doc.HighlightColorIndex
                'Do stuff here'
            End If

            'doc has been reassigned to the matching'
            'range; we do this so word keeps searching'
            'forward'
            doc.Collapse wdCollapseEnd
        Wend
    End With

    Set doc = Nothing
End Sub

'I am closing comment quotes so that SO formatting'
'does not get messed up too much.'

    OriginalL'auteur guillermooo