VBS Word comment remplacer du texte

VBS Word comment remplacer du texte - VB/VBA/VBS - Programmation

Marsh Posté le 21-09-2004 à 16:57:36    

en VBScript, j'ouvres un document word, que je duplique, puis je voudrais y remplacer certains mots par d'autres, mon find le trouve bien mais ne remplace rien du tout!  
help!
 

Code :
  1. Dim srcTemp
  2. Dim cllTemp 'As Word.Cell
  3. Dim App
  4. Dim docDistant
  5. Dim myDoc
  6. Dim retval
  8. Set App = CreateObject("Word.Application" )
  10. Set docDistant = App.Documents.Open("http://blabla/Word/essai_1.doc" )
  11. docDistant.Content.Copy
  13. Set myDoc = App.Documents.Add
  14. myDoc.Content.Paste
  15. docDistant.Close (False)
  16. App.Visible=true
  18. myDoc.Content.InsertAfter "j'arrives a inserer une ligne"
  20.     Dim strFind
  21.     strFind = "Bonjour" ' je veux remplacer bonjour
  22.     With App.Selection.Find
  23.         .ClearFormatting()
  24.         .Text = strFind
  25.         .Replacement.ClearFormatting()
  26.         .Replacement.Text = "Hello"
  27.         .Execute
  28.    End With
  30. Set myDoc = Nothing


---------------
Habillé par Canon, Gallerie web v1.0
Reply

Marsh Posté le 21-09-2004 à 16:57:36   

Reply

Marsh Posté le 21-09-2004 à 20:30:55    

:(


---------------
Habillé par Canon, Gallerie web v1.0
Reply

Marsh Posté le 22-09-2004 à 09:08:50    

:sweat:


---------------
Habillé par Canon, Gallerie web v1.0
Reply

Marsh Posté le 22-09-2004 à 23:31:12    

:cry:


---------------
Habillé par Canon, Gallerie web v1.0
Reply

Sujets relatifs:

Leave a Replay

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