<====Lancer une Macro WORD sur plein de fichiers ===>

Signaler
Messages postés
8
Date d'inscription
jeudi 7 avril 2005
Statut
Membre
Dernière intervention
5 octobre 2005
-
Messages postés
1
Date d'inscription
mardi 15 février 2005
Statut
Membre
Dernière intervention
6 janvier 2006
-
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 ma 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

1 réponse

Messages postés
1
Date d'inscription
mardi 15 février 2005
Statut
Membre
Dernière intervention
6 janvier 2006

je pense que si tu ouvres un modèle (.dot) avec ta macro qui va ouvrir tes documents via un canal DDE ça devrait le faire