Pilotage Word sur une zone de texte

[nicolase78]

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.

    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

 

[nicolase78]

Re : Pilotage Word sur une zone de texte

Ca me rend fou ce problème et je vois pas pourquoi cette ligne marche pas : With wrdapp.Shapes("Text Box 17").Selection.Find ...

 

[kjin]

Re : Pilotage Word sur une zone de texte

Bonsoir,

Non testé, mais avant l'internement à l'asile

...bienvenue
A+
kjin