Ausgabe von langen Zellinhalten

Sub Ausgabe_Word()
ActiveCell.FormulaR1C1 = ActiveCell
Dim MyDoc As Object
Dim MyAppl As Object
Dim NeueWordDatei As String
NeueWordDatei = "normal.dot"
Set MyAppl = CreateObject("Word.Application")
With MyAppl
.Documents.Add Template:=NeueWordDatei
.Visible = True
.WindowState = 1
.Activate
.Selection.TypeValue Value:=ActiveCell.Value & Chr(13)
End With
End Sub