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