Trouver toutes les occurrences de jaune, de texte et de changer la couleur de police rouge

J'ai besoin d'une macro vba qui recherche tous les le texte qui a la couleur de la police que le jaune dans un MME document Word 2007 et ça change du rouge. La couleur jaune de ne pas s'afficher dans les imprimés. En sélectionnant manuellement et l'évolution va me prendre des heures.

OriginalL'auteur Raaskull | 2010-09-11

  1. 8

    La suite de stakx de Word 97, voici ce qui fonctionne dans Word 2010:

    1. Ouvrir le Trouver et Remplacer le dialogue (par exemple, Ctrl-H)
    2. Cliquez dans la "Rechercher".
    3. Déroulante Format, Police, choisissez la couleur de la Police pour être trouvé, OK.
    4. Cliquez sur dans la "Remplacer par".
    5. Déroulante Format, Police, choisissez la couleur à la fin, OK.
    6. Observer que le Format: description de "Rechercher" et "Remplacer par" est maintenant différente.
    7. Remplacer/Remplacer Tous/Trouver l'autre en tant désiré.

    Vous pouvez déterminer la couleur d'origine comme suit:

    1. Cliquez sur un peu de texte avec la couleur d'origine
    2. Ouvrir la palette de couleurs. Si ni un "Thème de la couleur", ni une "couleur Standard" est sélectionné, vous devrez peut-être cliquez sur "Plus de couleurs".

    OriginalL'auteur Colin Frame

  2. 5

    Il y a en fait une non-solution de programmation pour ce. Je l'ai essayé dans Word 97, donc je suppose que Word 2007 permet encore ceci:

    1. Ouvrir le de Recherche & Remplacer boîte de dialogue.
    2. Cochez la case qui dit, la recherche du Modèle de (ou similaire).
    3. Comme terme de recherche, entrez (?).
    4. Sélectionnez une mise en forme pour la recherche (jaune couleur du texte).
    5. De remplacement à terme, entrez \1.
    6. Sélectionnez la mise en forme pour le remplacement dans le rouge (couleur du texte).
    7. Puis de rechercher et de remplacer tout.

    Les étapes 2, 3 et 5 (à l'entrée de rechercher et de remplacer des expressions régulières) peut ne pas être nécessaire.

    Si vous avez certainement besoin de code VBA, vous devriez être en mesure d'enregistrer les étapes ci-dessus comme une macro, puis regarder le code généré.

    Dans Word 2013, cela fonctionne si vous utiliser rien d'autre que la recherche et le remplacement de termes

    OriginalL'auteur stakx

  3. 3
    Sub ChangeColorWithReplace()   
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorYellow
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

    Aussi, voici une autre façon de le faire. Il n'est pas extrêmement rapide, mais c'est plus rapide que de le faire manuellement:

    Sub ChangeFontColorByCharacter()
    Application.ScreenUpdating = False
    Dim d As Document: Set d = ActiveDocument
    For i = 1 To d.Characters.Count
        If d.Characters(i).Font.TextColor.RGB = RGB(255, 255, 0) Then
            d.Characters(i).Font.TextColor.RGB = RGB(255, 0, 0)
            DoEvents
        End If
    Next
    Application.ScreenUpdating = True
End Sub
    La Police.TextColor de propriété n'a été introduite dans Word 2010, et n'est pas disponible dans Word 2007 modèle d'objet.

    OriginalL'auteur Todd Main