Ecriture sous word a partir de VB

cs_drikce Messages postés 1 Date d'inscription mardi 1 juin 2004 Statut Membre Dernière intervention 1 juin 2004 - 1 juin 2004 à 17:59
Arkarch Messages postés 27 Date d'inscription jeudi 25 mars 2004 Statut Membre Dernière intervention 6 juillet 2004 - 11 juin 2004 à 08:40
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

nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Modérateur Dernière intervention 15 juillet 2011 37
1 juin 2004 à 21:45
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
0
Arkarch Messages postés 27 Date d'inscription jeudi 25 mars 2004 Statut Membre Dernière intervention 6 juillet 2004
11 juin 2004 à 08:40
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 !)
0