Correspondance code RGB et Font.Color (macro word 2003)

bonjour

j'ai une macro qui marche très bien pour changer une couleur sous word

exemple:

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
         With Selection.Find
        .Font.Color = wdColorBlue
        .Replacement.Font.Color = wdColorRed
                .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = False
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
      End Sub

ci haut je change la couleur bleue par la couleur rouge

mais quand la couleur à changer est personnalisée (exemple RVB(112;172;237)

je n'arrive pas à entrer le code RVB

exemple pour le vert si je rentre (cf https://msdn.microsoft.com/en-us/library/office/aa211923(v=office.11).aspx)

Font.Color = 32768 c'est ok (équivalent à fontColor=WdColorGreen)

quelle valeur donner à FontColor quand on connait les valeurs RGB?

normalement vert c'est 0 128 0 , comment est calculée le 32768 qui marche

en résumé j'aimerai savoir comment entrer le code RGB dans ma macro word de façon à changer cette couleur-ci

merci

paul

bonjour

personne ne peut m'aider !!

ma question est théorique mais j'aimerai connaitre la réponse

comment est calculée la constante à entrer dans la propriété font.color en connaissant les valeurs RVB?

exemple : 32768 pour RVB(0;128;0)

merci beaucoup

bonne fête du 15 août

Paul

Bonjour,

quelle valeur donner à FontColor quand on connait les valeurs RGB?

normalement vert c'est 0 128 0 , comment est calculée le 32768 qui marche

en résumé j'aimerai savoir comment entrer le code RGB dans ma macro word de façon à changer cette couleur-ci

Selection.Font.Color = RGB(0, 128, 0)

Cordialement,

merci beaucoup

ça marche nickel

j'ai essayé pour cette couleur personnalisée c'est ok

Font.Color = RGB(112, 172, 237)

NB

je suis informaticien et je n'avais pas réussi à trouver sur les sites comment entrer cette valeur

j'avais essayé avec tiret avec -R avec R() avec rvb R(112172237) R(112;172;237)

l'aide VBA demeure comme toujours très squelettique et inappropriée heureusement les forums comme le votre existe

merci encore

bonne journée

Paul

Rechercher des sujets similaires à "correspondance code rgb font color macro word 2003"