Inserer du texte via vbs

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Inserer du texte via vbs

isaloyer

Bonjour,

Je cherche via un vbs à insérer du texte dans un document Word.

Mon probléme est le suivant: certaines des chaines à insérer dépassent les 255 caractéres, comment déclarer la variable en variable de type texte.
D'autre part, je souhaite ajouter des retours chariots entre chacune des dates mais cela ne fonctionne pas.

Si l'un de vous a une idée de génie, je suis preneuse d'autant que je suis plus que novice en vba et vbs.

Merci par avance pour votre aide.

Code :

Const wdReplaceAll = 2
path = "C:\Documents and Settings\All Users\Application Data\OE\OEWord549806202.doc"
Set objWord = CreateObject("Word.Application" )
Dim objWordDoc
Set objWordDoc=objWord.Documents.open(path)
objWord.Visible = true
With objWord.Selection.Find
.ClearFormatting
.Text = ""
With .Replacement
.ClearFormatting
.Text ="LOSCO"
End With
.Execute , , , , , , , , , , wdReplaceAll
End With
With objWord.Selection.Find
.ClearFormatting
.Text = ""
With .Replacement
.ClearFormatting
.Text ="Pablo"
End With
.Execute , , , , , , , , , , wdReplaceAll
End With
With objWord.Selection.Find
.ClearFormatting
.Text = ""
With .Replacement
.ClearFormatting
.Text ="15/09/2004*07/04/2004*20/04/2004*07/04/2004*07/05/2004*24/05/2004*02/07/2004*22/06/2004*16/07/2004*08/09/2004*22/10/2004*03/12/2004*07/01/2005*14/01/2005*08/03/2005*20/06/2006*18/08/2006*26/09/2006*06/10/2006*17/11/2006*04/12/2006*15/04/2005*27/05/2005*29/06/2005*30/08/2005*11/10/2005*22/11/2005*14/02/2006*30/04/2007*28/03/2006*09/05/2006*11/12/2006*11/12/2006*06/02/2007*10/01/2006*14/02/2006*"
End With
.Execute , , , , , , , , , , wdReplaceAll
End With
ScreenUpdating=True
objWord.ScreenRefresh
objWordDoc.Save
objWord.NormalTemplate.Saved = True
Set objWordDoc = nothing
Set objWord = nothing

Publicité

produvba

Bonjour,

Pour insérer un saut de ligne, la solution généralement consiste à utiliser la fonction chr (chr(10) en l'occurence)

Mais permettez moi un peu de pub : ne perdez pas de temps à programmer, je peux le faire pour vous à un taux raisonnable,

Contactez moi sur bolontapia@telepolis.com

Pro du VBA

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Inserer du texte via vbs

Sujets relatifs
Insérer des caractères dans une grille via un fichier texte .txt	[HTML] Insérer un espace pour afficher un texte en bas de page
Insérer caractère % dans un texte	[VBS] Inserer du texte dans un textarea ?
Inserer une valeur d'une base de donnée dans un champ de texte	[URGENT]Insérer des champs dans un texte/occurence d'un style
[VBA-W]Insérer du texte après une recherche	Insérer du texte récurrent dans une page par les CSS ?
inserer texte gras dans champ de texte	[Résolu] Insérer dans un champ texte en fonction de checkbox
Plus de sujets relatifs à : Inserer du texte via vbs

Page générée en 0.037 secondes