Sice už vyřešeno, ale další možnost.

Sub Makro1()
Application.ScreenUpdating = False

Dim i As Long

For i = 1 To ActiveDocument.Paragraphs.Count
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.TypeParagraph
Next i

Application.ScreenUpdating = True
End Sub