Visual basic de macro - changer la couleur d'un texte spécifique

Im très nouveau pour visual basic et les macros. ce que j'ai essayé de faire est de créer une macro qui permet de regarder à travers l'ensemble du document et vérifier pour voir si la police est rouge;si elle est rouge alors je veux changer la police rouge à une police blanche.

Je sais que mon code est mal, mais quelqu'un peut-il me dire ce que je fais de mal?

Sub red()

  If Font.Color =wdColorRed Then
  Font.Color = -603914241
End Sub

Essayez ceci.Le mettre dans une ligne If Font.Color =wdColorRed Then Font.Color = -603914241
je reçois une erreur d'exécution si je fais ça "erreur d'exécution 424: objet requis"
À ce que vous appliquez cette couleur de police ?
à toute partie d'un document qui est dans une police rouge.
Ce n'est pas comment il fonctionne. Vous avez besoin d'un objet. Quand vous dites une partie de document, vous voulez dire "chaque mot" ?
Gentiment "fermer" les questions en cochant la bonne réponse. C'est ce que les gens ici, comme quand on aide les autres. Il aidera ppl avec le même problème pour trouver la bonne solution 🙂

InformationsquelleAutor Thomas | 2013-05-18

3

Vous pouvez utiliser ce qui est assez rapide (pas de boucle nécessaire pour chaque feuille).
```
Sub Macro1()
Application.ScreenUpdating = False 'disable the screen from updating, i.e, avoid excel redrawing the screen after each color change we make
Application.FindFormat.Font.Color = 255
Application.ReplaceFormat.Font.Color = 16777215
Cells.Select
Selection.Replace What:="", Replacement:="", MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
Application.ScreenUpdating = True 'enable screen updating
End Sub
```
Les couleurs de police peut être un peu délicat. Donc, pour savoir de quelle couleur vous voulez, sélectionnez une cellule et de changer la couleur vous avez besoin de connaître le nombre de. Ensuite, allez à votre développeur de l'écran et Affichage -> Fenêtre d'exécution (ou appuyez sur Ctrl+G). Puis dans la fenêtre exécution (devrait maintenant être au bas de votre écran, avec la cellule a vous de la couleur que vous voulez savoir encore sélectionnée, tapez
```
? Selection.Font.Color
```
et cela vous donnera de la couleur qui vous intéresse. Ensuite, mettre ces chiffres en Application.Trouver/ReplaceFormat.La police.La couleur ci-dessus.

Cela fonctionne pour la feuille sélectionnée, vous pouvez tout simplement jeter cela dans une boucle et itérer sur toutes les feuilles dans un classeur à les changer tous.

InformationsquelleAutor jhoe

Est-il à ce que vous recherchez ?

Copié à partir de ici @Todd Principale Réponse.

Sub ChangeColorWithReplace()
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -603914241
    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

InformationsquelleAutor Santosh

Vous devez vous connecter pour publier un commentaire.