Avec une macro Excel, je voudrais lancer une macro Word sur plusieurs documents Word.  
Avec la solution suivante, ça fonctionne mais il faut que la macro Word soit attachée au document Word :  
Myresult = wrdApp.Run("MacroWord", V1, V2)  
 
 Voici la macro Word :
Sub MacroWord()  
     
    For Each myShape In ActiveDocument.Shapes  
    myShape.Select  
 
    Selection.Find.Replacement.ClearFormatting  
    With Selection.Find  
        .Text = V1  
        .Replacement.Text = V2  
        .Forward = True  
        .Wrap = wdFindContinue  
    End With  
    Selection.Find.Execute Replace:=wdReplaceAll  
    Next  
    End Sub
 
Avez-vous une solution?  
Merci