Macro Word 2010 / Autoexec replace

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro Word 2010 / Autoexec replace

cfmreggae

Bonjour,

Malgré mes recherches je n'arrive pas au bout de mon objectif...
Je cherche à ce que, dès l'ouverture du document, et dans tout le document dans son ensemble, une chaine soit remplacée par une autre (en l'occurence, "**" par "* *" ).

C'est ma toute première macro, je manque d'expérience de base dans ce sujet.

Voici mon code :

Code :

Sub AutoExec()
'
' AutoExec Macro
'
'
Call REMPLACE
End Sub
Sub REMPLACE()
'
' REMPLACE Macro
'
'
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "**"
.Replacement.Text = "* *"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Quand le parsing atteint "Selection.WholeStory" il ne comprend à priori pas la variable "Selection" (peut-être parce qu'à l'ouverture exacte du document et donc à l'éxécution de la macro, le curseur n'a pas encore été initialisé dans la page)...?

Je suis preneur de toute solution, merci beaucoup d'avance !

De plus, il s'agit d'un document de publipostage ouvert par un progiciel, et je souhaite que la macro s'éxécute sur les données après la fusion automatique (détail important mais si je peux déjà arriver à faire que la macro se lance au démarrage, c'est déjà un progrès)..!

Publicité

Marc L

Je n'ai pas testé mais à la place de Selection (un peu idiot à l'ouverture d'un document),
j'essaierais plutôt avec ActiveDocument.Range …

Marc L

AutoExec est plutôt obsolète !

Cela fait 10 ans qu'il faut regarder du côté des évènements d'un document,
du genre Document_Open dans le module ThisDocument …

cfmreggae

Désolé de ne répondre que maintenant, j'ai peu de temps à consacrer à ce point particulier donc je progresse en échelonnant mon temps.

En cherchant et en testant plsuieurs méthodes, ca fonctionne avec :

Code :

Sub AutoOpen()
'
' AutoOpen Macro
'
'
With ActiveDocument.Content.Find
.Text = "**"
.Replacement.Text = "* *"
.Execute Replace:=wdReplaceAll
End With
End Sub

En me placant la macro dans mon AutoOpen du document.
Ca marche très bien sur les données présentes dans le document, dès l'ouverture, je vois les données remplacées.

Par contre (niveau 2 de difficulté), il s'agit en fait de données fusionnées, j'aurai donc besoin de lancer automatiquement cette macro juste après la fusion. Y'a t'il un évènement qui puisse déterminer ce moment ?

En gros, c'est une edition fusionnée, Word s'ouvre en silencieux, fusionne, imprime et se ferme (mais ne s'ouvre jamais visuellement en conditions de prod).

Il ne me manque donc plus que l'étape "trouver l'évènement post-fusion".

Message édité par cfmreggae le 01-02-2013 à 14:57:21

Marc L

Si la fusion se fait par VBA, il suffit juste d'ajouter le code en fin de celui concernant cette fusion,
sinon je ne vois pas de solution …

cfmreggae

Je ne saurais dire, c'est un soft en hyperfile SQL qui pousse les données dans un TXT, ouvre l'état et fusionne.

J'ai vu certaines méthodes "AfterMerge" il faut surement que je creuse dans ce sens...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro Word 2010 / Autoexec replace

Sujets relatifs
macro copier coller	Aide pour Macro Excel
macro sur excel	Demande d'aide URGENTE - PPT 2010
Macro	Comment exécuter ma macro Excel automatiquement ?
macro recherche cellules dans 2 fichiers	[PHP] Aide pour un preg_replace, caractère de fin ]
Bouton imprimer permettant de faire un publipostage sur Word	Mise en page d'un signet sous Word par macro
Plus de sujets relatifs à : Macro Word 2010 / Autoexec replace

Page générée en 0.065 secondes