Modifier une police dans un doc. word

Modifier une police dans un doc. word - VB/VBA/VBS - Programmation

Marsh Posté le 18-05-2005 à 11:40:37    

Bonjour à tous, j'ai un projet VB qui ouvre un doc. word et qui ensuite est censé mettre en bleu une chaîne de caractère s'il la trouve... Avec le code suivant :
 

Code :
  1. Set MyRange = ActiveDocument.Content
  2.         MyRange.Find.Execute FindText:="ble ble ble", _
  3.         ReplaceWith:="bla bla bla", _
  4.         Replace:=wdReplaceAll


 
j'arrive à remplacer ble ble ble par bla bla bla, mais supposons que je souhaiterais que ble ble ble reste, mais s'affiche en bleu ?!?
 
Qqn aurait-il une idée ?!?

Reply

Marsh Posté le 18-05-2005 à 11:40:37   

Reply

Marsh Posté le 18-05-2005 à 17:50:37    

J'essaie avec le code suivant, mais il me dit que la méthode Replacement de l'objet Find a échoué....
 
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Replacement.ClearFormatting
        .Replacement.Font.Color = wdColorRed
        .text = "und"
        .Replacement.text = "und"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed