fonction rechercher / remplacer [VBA WORD] - VB/VBA/VBS - Programmation
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é ?
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.
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
Marsh Posté le 08-06-2007 à 14:28:46
Oui, ok, merci Paul Hood.
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 ?
Marsh Posté le 11-06-2007 à 08:04:20
Bonjour,
Comment identifies-tu un caractère masqué d'un document ?
Marsh Posté le 21-09-2007 à 10:29:51
bonjour tout le monde,
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 ?
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.