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.
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
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
- Sub createlabel()
- Application.MailingLabel.DefaultPrintBarCode = False
- Application.MailingLabel.CreateNewDocumentByID LabelID:="805956447", Address:="" _
- , AutoText:="Etiketten", LaserTray:=wdPrinterManualFeed
- For i = 1 To 8
- Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
- Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="BARCODE.BarcodeCtrl.1", FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
- ab.Width = 71
- ab.Height = 45
- With ab.OLEFormat
- .Activate
- Set ab = .Object
- End With
- ab.Text = "123456"
- Selection.MoveRight Unit:=wdCell
- Next i
- 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