Überschriften in Word aus Excel erstellen
19.08.2014 10:06:09
Bernhard
ich möchte aus Excel 2010 mit einem VBA Makro ein Word-Dokument öffenen und in diesem Überschriften erstellen. Der Text für die Überschriften stammen aus der Excel-Datei.
Leider treten die Laufzeitfehler 424 und 438 auf. Kann mir jemand einen Tip geben, was zu korrigieren ist, oder ob es eine elegantere Lösung gibt.
Vielen Dank schon mal.
Hier mein Skrip:
Sub Ueberschriften_aus_Excel_nach_Word()
Dim text_uberschrift1 As String
Dim text_uberschrift2 As String
Dim appWord As Object
Dim docTest As Object
text_uberschrift1 = Cells(1, 1)
text_uberschrift1 = Cells(1, 1)
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\LV_Muster.docx")
appWord.Visible = True
ShowVisualBasicEditor = True
Selection.Style = activedocument.Styles("Überschrift 1") 'Laufzeitfehler 424
Selection.TypeText Text = text_uberschrift1 'Laufzeitfehler 438
Selection.TypeParagraph 'Laufzeitfehler 438
Selection.TypeParagraph
Selection.Style = activedocument.Styles("Überschrift 2")
Selection.TypeText Text = text_uberschrift2
Selection.TypeParagraph
Selection.TypeParagraph
Set appWord = Nothing
Set docTest = Nothing
End Sub