Transferer textbox vers word [VB6]

Signaler
Messages postés
60
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
11 avril 2012
-
Messages postés
60
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
11 avril 2012
-
Salut!
J'ai une form avec plusieurs textbox et j'arivve a creer un nouveau document word depuis vb6 et a inserer le text des textbox dans word mais je n'arrive pas a creer des zones de texte pour word depuis vb6.Quelqu'un aurais t'il une solution ?
Merci d'avance a+

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Salut
Je viens de faire l'essai : Si tu enregistres une macro pendant que tu insères une zone de texte sur ton document, la macro te donnera la syntaxe :
    ActiveDocument.ToggleFormsDesign
    Selection.InlineShapes.AddOLEControl ClassType:="Forms.TextBox.1"

Tu n'as plus qu'à l'adapter à ton objet Word sous VB6.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
60
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
11 avril 2012

Salut !
Merci pour ta réponse

J'ai finalement trouver comment tracer une textbox dans word depuis vb6.Voila le code

Dim i As Integer
Dim Woapp As New Word.Application
Dim filter As String
            filter = "Document Word (*.Doc)" + vbNullChar + "*.doc" + vbNullChar + "All Files (*.*)" + vbNullChar + "*.*"
   Set Woapp = CreateObject("word.application")
Woapp.Documents.Add

With Woapp
       .Visible = True

        .ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
        

                             
    .ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 45, 20, 400#, 50).Select



Mais malheresement quand je l'essaye il y a un message d'erreur :"La valeur tapée est en dehors des limites" aurais tu une solution ?
Merci a+