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

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

Как записать в переменную текст первого абзаца из указанного раздела?

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

В методе "Sections", в скобках укажите порядковый номер нужного раздела.

Sub Макрос()

    Dim Var
   
    ' Вторая строка кода отбрасывает с конца символ "новая строка".
    Var = ActiveDocument.Sections(1).Range.Paragraphs(1).Range.Text
    Var = Left(Var, Len(Var) - 1)

End Sub

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

Вы ВОЛШЕБНИК! Все работает!