Problème macro Word: mise en forme texteRésolu/Fermé

Question

Bonjour,  

J'ai fait une macro toute bete sous word pour modifier la couleur d'un texte mais je ne comprends pas pourquoi elle ne fonctionne pas. 

La voici: 
Sub Macro2() 
' 
' Macro2 Macro 
' Macro enregistrée le 16/08/2010 par Machin 
' 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
        .Text = "hello : " 
        .Replacement.Text = "hello : " 
        .Forward = True 
        .Wrap = wdFindContinue 
        .Format = True 
        .MatchCase = False 
        .MatchWholeWord = False 
        .MatchWildcards = False 
        .MatchSoundsLike = False 
        .MatchAllWordForms = False 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
End Sub 


Elle consiste juste à remplacer "hello :" par le meme texte mais en vert foncé et en caractère gras. 
Or, quand je la lance elle remplace tous mes "hello" en caractères normaux, sans couleur. 
Je ne m'y connais pas trop en vb mais cela dit je ne vois pas de code couleur apparaitre dans cette petite macro. J'ai utilisé l'outil de création de macro de word 2007 et la commande "remplacer" pour pouvoir remplacer le hello classique en hello couleur... 

Quelqu'un aurait-il une idée ?  

Merci !!! 


Configuration: Windows XP / Firefox 3.6.8 / word 2007g>

sriviere · Accepted Answer

Bonjour,  

Essaie avec celle-ci :  

    Selection.Find.ClearFormatting  
    Selection.Find.Replacement.ClearFormatting  
    With Selection.Find.Replacement.Font  
        .Bold = True  
        .Color = 5296274  
    End With  
    With Selection.Find  
        .Text = "vert"  
        .Replacement.Text = "vert"  
        .Forward = True  
    End With  
    Selection.Find.Execute Replace:=wdReplaceAll  
End Sub  

J'ai remplacé "hello" par "vert" 

Tu n'as pas besoin, dans ta macro, des lignes suivantes (que tu peux enlever sans dommages) :   

        .MatchCase = False  
        .MatchWholeWord = False  
        .MatchWildcards = False  
        .MatchSoundsLike = False  
        .MatchAllWordForms = False  

Cordialement.

marco.marco · Answer

Personne ??? :'-(

Je sèche sur ce problème. J'ai rééssayé de plusieurs manières (en changeant d'abord le format du texte, la police, etc...) mais rien n'y fait.
Le plus curieux c'est que la pagination marche bien (réduire les marges par exemple), la suppression ou le remplacement de texte simple également, mais dès qu'il s'agit de la modification de la police, là il ne veut entendre. 

Merci pour vos réponses.

Problème macro Word: mise en forme texte

2 réponses

Newsletters