VB Word Textbox ausgabe via Makro

  • Word

    VB Word Textbox ausgabe via Makro

    Hallo

    Ich habe nun schon länger gesucht doch nichts gefunden. Ich denke das es nicht schwer sein wird mir zu helfen. Es geht um folgendes:

    Mein Makro erstellt 8 Etiketten in einem neuen Word Dokument. Ich habe ein Formular gebastelt in welchem man die Beschriftung der Etiketten einträgt. Nun ist mein Problem das ich den Text aus den TextBosen1-10 auf in jeweils eine Zeile von meinem neuen Dokument schreibe. Das heißt ich möchte meine 10 Zeilen aus den Textboxen ausgeben.

    VB.NET-Quellcode

    1. Sub createlabel()
    3. Application.MailingLabel.DefaultPrintBarCode = False
    4. Application.MailingLabel.CreateNewDocumentByID LabelID:="805956447", Address:="" _
    5. , AutoText:="Etiketten", LaserTray:=wdPrinterManualFeed
    7. For i = 1 To 8
    9. Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    10. Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="BARCODE.BarcodeCtrl.1", FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
    12. ab.Width = 71
    13. ab.Height = 45
    15. With ab.OLEFormat
    16. .Activate
    17. Set ab = .Object
    18. End With
    20. ab.Text = "123456"
    21. Selection.MoveRight Unit:=wdCell
    23. Next i
    25. End Sub


    Das Makro erstellt bisher nur die Etiketten.



    So sehen die Etiketten bisher aus. Nun möchte ich sie mit Text füllen.




    Das ist mein Formular. In den Textboxen soll der Text für die Etiketten eingetragen werden und mithilfe des Makros ausgegeben werden.

    Falls ich etwas vergessen habe tut es mir leid, dennoch hoffe ich das mir einer helfen kann.

    Grüße

Facebook
Telefonspende