[VBA WORD] fonction rechercher / remplacer

fonction rechercher / remplacer [VBA WORD] - VB/VBA/VBS - Programmation

Marsh Posté le 06-06-2007 à 11:57:59    

Bonjour à tous !
 
Vu que je travaille souvent sur un type de document Word bien particulier, je cherche à faire une macro sous Word pour rechercher tous les caractères masqués d'un texte et changer leur couleur de police (en rose, par exemple) mais tout en laissant ces caractères masqués.
 
Quand je fais l'enregistrement automatique de la macro, ça fonctionne sans problème mais si je lance la macro enregistrée, ça ne marche pas. Voilà le code de la macro enregistrée automatiquement :
 
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .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
 
 
Si quelqu'un à une idée... :??:
 
PS : mes compétences en VB sont trèèèèèèèèèèèèèèèèès limitées...
 
Merci d'avance. :jap:

Reply

Marsh Posté le 06-06-2007 à 11:57:59   

Reply

Marsh Posté le 06-06-2007 à 12:06:13    

bonjour,  
quand tu dis que ca ne marche pas, cela veut-il dire que ca plante et te donne un code erreur ou bien la macro tourne, mais le résultat n'est pas celui escompté ?

Reply

Marsh Posté le 06-06-2007 à 12:17:12    

Je n'ai pas de code erreur, mais il n'y a aucun résultat apparent quand je lance la macro.
Merci.

Reply

Marsh Posté le 07-06-2007 à 09:01:36    

Remplacement de "TonTexte" en bleu
 
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "TonTexte"
        .Replacement.Text = "TonTexte"
        .Replacement.Font.Color = wdColorBlue
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Reply

Marsh Posté le 07-06-2007 à 11:15:10    

Merci, j'essaye.

Reply

Marsh Posté le 08-06-2007 à 14:28:46    

Oui, ok, merci Paul Hood. :jap:
 
Ca fonctionne mais ce n'est pas exactement ce que je voudrais faire. Comment faire pour effectuer le changement de couleur non pas sur « TonTexte » mais sur tous les caractères masqués d'un document ?
:??:


Message édité par gusano le 08-06-2007 à 14:30:12
Reply

Marsh Posté le 11-06-2007 à 08:04:20    

Bonjour,
 
Comment identifies-tu un caractère masqué d'un document ?

Reply

Marsh Posté le 21-09-2007 à 10:29:51    

bonjour tout le monde, :hello:  
pour éviter de créer un nouveau topic, je reprends celui-ci, qui s'approche de ce que je cherche en ce moment.
 
Est-il possible d'appliquer la fonction recherche non pas sur un texte mais sur une couleur de fond.
En gros j'ai un fichier word dans lequel j'ai du texte sur fond jaune, et un autre sur fond rouge, et je cherche donc à récupérer le texte sur fond jaune.
Je trifouille le code, mais je ne trouve pas.
 
Une idée svp ?

Reply

Sujets relatifs:

Leave a Replay

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