Word VBA Макросы. Как узнать, что абзац пустой?

[Посетитель]

Как с помощью макроса узнать, что абзац пустой?

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

Предполагается, что выделение в виде мигающего курсора и курсор находится в нужном месте.

Sub Macro()
   
    If Selection.Paragraphs(1).Range.Characters.Count = 1 Then
        MsgBox "Абзац пустой", vbInformation
    Else
        MsgBox "Абзац не пустой", vbInformation
    End If
 
End Sub

[Посетитель]

Выручили, спасибо большое!