[VBA] piloter word depuis une macro excel -- Chercher remplacer

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] piloter word depuis une macro excel -- Chercher remplacer

T509

$job->GetJob(now)

Salut,

J'ai quelques souci avec une macro simple sous excel.

Elle ouvre un fichier word qui contient des balises définies. Je souhaite simplement remplacer celles-ci avec un texte calculé ailleurs.
Ma macro exemple se passe bien sauf lors du remplacement proprement dit. La balise à chercher est trouvée mais pas remplacée.

Je ne comprends pas pourquoi.
Auriez vous une idée ?
Merci

Code :

Set word_app = CreateObject("Word.Application" )
With word_app
.Visible = True
.WindowState = wdWindowStateMaximize
End With
Set word_fichier = word_app.Documents.Open("C:\Dearall.doc" )
word_app.Selection.Find.ClearFormatting
word_app.Selection.Find.Replacement.ClearFormatting
With word_app.Selection.Find
.Text = "--Champs1--"
.Replacement.Text = "BonjouR"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
word_app.Selection.Find.Execute Replace:=wdReplaceAll

Publicité

seniorpapou

Bonjour,
deux solutions:
a) tu remplaces wdReplaceAll par 2
b) tu fais outils->références et coches microsoft word....10.0 ou 11.0 selon ta version
Cordialement

T509

$job->GetJob(now)

Merci beaucoup, la première solution fonctionne très bien.

Pour la seconde solution, c'est déjà fait de manière logicielle un peu plus haut dans la macro.

A+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] piloter word depuis une macro excel -- Chercher remplacer

Sujets relatifs
Somme infinie dans VBA	VBA : calcul d'intégrale
macro qui cesse de fonctionner	VBA - Gestion Saut de page / Impression
(VBA excel) lire les données d'une macro complementaire	Fonction ALEA() et fonction de répartition sous Excel
Alternative au générateur de nombres aléatoires Excel	Monte Carlo, comment ça marche sous Excel ?
Plus de sujets relatifs à : [VBA] piloter word depuis une macro excel -- Chercher remplacer

Page générée en 0.032 secondes