Word VBA Макросы: Добавить абзац в конце выделения.

[Anton]

Помогите решить попроще.
Есть выделенный фрагмент, нужно добавить в конце выделенного фрагмента пустой абзац и включить его в выделенный фрагмент.

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

Sub Макрос()
    Selection.InsertParagraphAfter
End Sub

[Anton]

Спасибо!