VBS Word comment remplacer du texte

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBS Word comment remplacer du texte

cybercouf

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 :

Dim srcTemp
Dim cllTemp 'As Word.Cell
Dim App
Dim docDistant
Dim myDoc
Dim retval
Set App = CreateObject("Word.Application" )
Set docDistant = App.Documents.Open("http://blabla/Word/essai_1.doc" )
docDistant.Content.Copy
Set myDoc = App.Documents.Add
myDoc.Content.Paste
docDistant.Close (False)
App.Visible=true
myDoc.Content.InsertAfter "j'arrives a inserer une ligne"
Dim strFind
strFind = "Bonjour" ' je veux remplacer bonjour
With App.Selection.Find
.ClearFormatting()
.Text = strFind
.Replacement.ClearFormatting()
.Replacement.Text = "Hello"
.Execute
End With
Set myDoc = Nothing

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

Publicité

cybercouf

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

cybercouf

:sweat:

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

cybercouf

:cry:

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBS Word comment remplacer du texte

Sujets relatifs
buffer en vbs	[Résolu] Un mysql_fetch_object avec un champ texte
Texte qui change en fonction dune textbox	Trier des données de type texte contenues dans un StringBuffer ?
delphi : ds un Edit comme quell commande pour mettre le texte a droite	comparateur de texte avec affichage des mots differents ou manquants
[divers] Supprimer les retours à ligne présents dans fichier texte	faire disparaître un texte en cliquant sur une image...(Bis)
faire disparaître un texte en cliquant sur une image...	[PHP] afficher le contenu d'un fichier texte
Plus de sujets relatifs à : VBS Word comment remplacer du texte

Page générée en 0.071 secondes