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

piloter word depuis une macro excel -- Chercher remplacer [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 29-12-2006 à 03:05:46    

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 :
  1. Set word_app = CreateObject("Word.Application" )
  2. With word_app
  3.     .Visible = True
  4.     .WindowState = wdWindowStateMaximize
  5. End With
  7. Set word_fichier = word_app.Documents.Open("C:\Dearall.doc" )
  11.     word_app.Selection.Find.ClearFormatting
  12.     word_app.Selection.Find.Replacement.ClearFormatting
  13.     With word_app.Selection.Find
  14.         .Text = "--Champs1--"
  15.         .Replacement.Text = "BonjouR"
  16.         .Forward = True
  17.         .Wrap = wdFindContinue
  18.         .Format = False
  19.         .MatchCase = False
  20.         .MatchWholeWord = False
  21.         .MatchWildcards = False
  22.         .MatchSoundsLike = False
  23.         .MatchAllWordForms = False
  24.     End With
  25.     word_app.Selection.Find.Execute Replace:=wdReplaceAll


     
 

Reply

Marsh Posté le 29-12-2006 à 03:05:46   

Reply

Marsh Posté le 29-12-2006 à 07:23:47    

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

Reply

Marsh Posté le 29-12-2006 à 14:44:01    

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+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed