Hallo,
ich möchte die ersten 4 Zeilen meiner Excel-Datei jeweils in einem neuen Absatz in einem neuen Word-Dokument abspeichern.
Das Word-Dokument soll im selben Pfad wie die .xlsm-Datei liegen.
Mein Code sieht wie folgt aus:
Sub WordAbsatzExportTry2()
Dim appWord As Word.Application
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
Set appWord = CreateObject("Word.Application")
appWord.Documents.Add
For i = 1 To 4
appWord.ActiveDocument.Paragraphs.Add
appWord.ActiveDocument.Paragraphs(i).Range.Text = Cells(i, 1).Value
Next i
appWord.ActiveDocument.SaveAs2 ThisWorkbook.Path & "\absetze.docx"
appWord.Quit
End Sub
Doch anstatt automatisch zu speichern kommt die Aufforderung "Datei speichern unter..." und es wird Dokument1.docx angezeigt.
Und das ganze unter C:\Users\MeinName\OneDrive\Documents
Mir wird für die Zeile
appWord.ActiveDocument.SaveAs2 ThisWorkbook.Path & "\absetze.docx"
die Fehlermeldung "Laufzeitfehler '4198' Befehl misslungen" angezeigt.
Hat jemand eine Idee?
Danke schonmal im Voraus
Philipp
|