Форум по VBA и MS Office

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

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

Sub Макрос()

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

End Sub

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