Ecriture sous word a partir de VB

Signaler
Messages postés
1
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
1 juin 2004
-
Messages postés
27
Date d'inscription
jeudi 25 mars 2004
Statut
Membre
Dernière intervention
6 juillet 2004
-
Bonjour, je suis en stage et je dois développer un logiciel de réponse à un appel d'offre sous VB. Pour mener à bien ce projet j'ai besoin d'insérer certain textes saisies par l'utilisateur sous vb dans word, à des emplacements spécifiques.
Comment faire?
Merci d'avance...

2 réponses

Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
36
tu utilises les signets
bookmarks
ou les champs de formulaires
formfields
(ce que j'utilise)
c'est limité a 255 caracteres pour les formfields et les bookmarks

mais pour contourner ce probleme il y a une astuce
il faut utiliser insertafter du bookmarks

tu as pleins d'exemple sur google en tapant les deux - trois mots cles ci - dessus
Messages postés
27
Date d'inscription
jeudi 25 mars 2004
Statut
Membre
Dernière intervention
6 juillet 2004

Salut !

J'ai du faire le mme genre d'exercice pour mes cours ! Si tu n'as pas envie de passer via bookmark etc... tu peux toujours faire un template Word puis dans VB créer un objet application word =>

Dim appWord as object
Set appWord = Createobject ("Word.Application")
AppWord.Documens.open filename:= C:\montemplate.doc,readonly:=true
appWord.Visible = true

appWord.selection.Find.ClearFormatting
with appWord.Find
.Text = "Tnom" (texte à rechercher dans le template!)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildCard = False
endwith
While appWord.Selection.Find.Execute
appWord.Selection.TypeText Text:= TxtNom (la textbox où se trouve le nom dans ton formulaire )

appWord.PrintOut (impression du document)
appWord.ActiveDocument.Close savechanges:=wdDoNotSaveChanges (fermer le template sans le sauver)
appWord.Quit (fermer Word)

Voilà, j'espère avoit été clair.... sinon tu peux me mailer je ferai mon possible pour t'aider davantage !!! (je suis dans les débutants)

Bon Courage

Arkarch

Ne Jamais Désespérer. Quelqu'un a forcément la solution .... (j'espère !)