Transferer textbox vers word [VB6]

Question

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+

cs_Jack · Answer

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)

matheonimbus30 · Answer

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+

Transferer textbox vers word [VB6]

2 réponses

Votre réponse

Discussions similaires