Форум по VBA и MS Office

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

Sub Макрос()

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

End Sub

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