Excel VBA <-> Word
07.07.2016 15:50:19
Friedl
Ich habe in Excel eine Userform mit Combobox und textboxen.
jetzt möchte ich ein Word docx öffnen und bestimmte Inhalte der Excel Combobox und Textboxen in das Word docx schreiben.
Habe bereits versucht Word Textbox anzusprechen. Word Dokumentz öffnet zwar aber es wird nicht in die Textbox geschrieben.
hier mein Code. Hab mal versucht nur den Inhalt der Combobox in die Word textbox zuschreiben. _ ohne erfolg
Private Sub CommandButton17_Click()
Dim strText As String
Dim lngZeile As Long
Dim objAppWord As Object
Dim objWordDoc As Object
On Error Resume Next
Set objAppWord = GetObject(, "Word.Application")
On Error GoTo 0
If objAppWord Is Nothing Then
Set objAppWord = CreateObject("Word.Application")
End If
objAppWord.Visible = True
objAppWord.Activate
Set objWordDoc = objAppWord.Documents.Open("H:\Desktop\Zuweisung_ohne_Parkplatz.docx")
Dim bRange As Range
If ActiveDocument.Bookmarks.Exists("Textbox1") Then
Set bRange = ActiveDocument.Bookmarks("Textbox1").Range
bRange.Text = Me.ComboBox1.Text
End If
objWordDoc.PrintPreview
objWordDoc.Close
End Sub
Danke