Word VBA Макросы. Как записать в переменную абзац без символа абзаца?

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

Нужно скопировать текст из абзаца в переменную, но символ абзаца не нужен. Как записать в переменную абзац без символа абзаца?

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

Sub Макрос()

    Dim Var
   
    Var = ActiveDocument.Paragraphs(1).Range.Text
    Var = Left(Var, Len(Var) - 1)

End Sub

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

Всё прекрасно работает!
Огромное спасибо.