Hallo zusammen,
ich habe es geschafft, das man einen Nachnamen aus der Dropbox wählen kann und dann der Vorname sowie Nachname in die vorgesehenen Textfelder in Wort einfügt. Nun ist aber mein Problem, wie kann ich es machen, das alle Vor- und Nachnamen im Wortdokument eingefügt werden?
Das Wortdokument habe ich angehangen. Dort sind die zwei Textmarken hinterlegt.
Wie kann ich es nun hinbekommen, das per Click auf den "button_drucken_zeugnis4" alle Vor- und Nachnamen ausgegebe werden?
Danke euch
Logic Kill
ich habe es geschafft, das man einen Nachnamen aus der Dropbox wählen kann und dann der Vorname sowie Nachname in die vorgesehenen Textfelder in Wort einfügt. Nun ist aber mein Problem, wie kann ich es machen, das alle Vor- und Nachnamen im Wortdokument eingefügt werden?
VB.NET-Quellcode
- Private Sub button_drucken_zeugnis4_Click()
- 'Zeile des Nachnamen auswählen
- x = Me.combobox_drucken_nachname.ListIndex + 2
- Dim wdApp As Object, wdDoc As Object
- Set wdApp = CreateObject("word.application")
- With wdApp
- .Visible = True
- Set wdDoc = .Documents.Add(ThisWorkbook.Path & "\Zeugnis\Abizeug4_Neu.doc")
- End With
- 'Daten in Word einfügen
- With wdDoc
- .Bookmarks("Nachname").Range = combobox_drucken_nachname.Value 'Nachname
- .Bookmarks("Vorname").Range = ActiveSheet.Cells(x, 2) 'Vorname
- End With
- End Sub
Das Wortdokument habe ich angehangen. Dort sind die zwei Textmarken hinterlegt.
Wie kann ich es nun hinbekommen, das per Click auf den "button_drucken_zeugnis4" alle Vor- und Nachnamen ausgegebe werden?
Danke euch
Logic Kill
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LogicKill“ ()