nicolase78
XLDnaute Junior
Bonjour à tous,
Je dois à l'aide d'Excel vba piloter un document word. Jusqu'a maintenant j'ai réussi à trouver les infos pour ouvrir le doc mais par contre, je cherche à remplacer un mot dans une zone de texte du word.
La macro ci-dessous marche pour remplacer un mot qui est dans le word sans que ce mot soit dans une zone de texte.
J'ai vu que ma zone de texte s'appelle Shapes("Text Box 17") dans mon word mais je ne sais pas où préciser à la méthode Find que je veux rechercher dans Text Box 17.
Merci à tous pour votre aide par avance.
PS : je n'ai pas mis de document joint car je pense pas que ça soit utile mais si il le faut y'a pas de problème.
Je dois à l'aide d'Excel vba piloter un document word. Jusqu'a maintenant j'ai réussi à trouver les infos pour ouvrir le doc mais par contre, je cherche à remplacer un mot dans une zone de texte du word.
La macro ci-dessous marche pour remplacer un mot qui est dans le word sans que ce mot soit dans une zone de texte.
J'ai vu que ma zone de texte s'appelle Shapes("Text Box 17") dans mon word mais je ne sais pas où préciser à la méthode Find que je veux rechercher dans Text Box 17.
Merci à tous pour votre aide par avance.
PS : je n'ai pas mis de document joint car je pense pas que ça soit utile mais si il le faut y'a pas de problème.
Code:
wrdapp.Selection.Find.ClearFormatting
wrdapp.Selection.Find.Replacement.ClearFormatting
With wrdapp.Selection.Find
.Text = "XXXXXXXX"
.Replacement.Text = "YYYYYYYYY"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wrdapp.Selection.Find.Execute Replace:=2
