Word VBA Макросы. Вставить пустой абзац перед абзацем.

[Линейный]

Как с помощью макроса вставить пустой абзац перед абзацем, в котором находится текстовый курсор?

[Администратор]

Sub Макрос()
    Selection.Paragraphs(1).Previous.Range.InsertParagraphAfter
End Sub

[Линейный]

Огромное спасибо! Работает!