Word VBA Макросы: Установка курсора в любом указанном абзаце.

[Game]

Каким образом можно можно поставить курсор в начале определенного абзаца?
Например. У меня 10 абзацев, но кол-во строк в этих абзацах разные. Необходимо поставить курсор в начале 3 абзаца.

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

Макрос

Sub Макрос()
   
    Dim doc As Document
   
   
    ' Присваиваем активному файлу имя "doc".
        ' Может быть так будет удобнее читать и писать код.
    Set doc = ActiveDocument
   
    ' Установка курсора в начало третьего абзаца.
    doc.Range(doc.Paragraphs(3).Range.Start, doc.Paragraphs(3).Range.Start).Select

End Sub

[свернуть]

Или можно ещё так установить. Функционал тот же, просто разный стиль написания кода:

Макрос

Sub Макрос()
   
    With ActiveDocument
        .Range(.Paragraphs(3).Range.Start, .Paragraphs(3).Range.Start).Select
    End With

End Sub

[свернуть]

[Game]

Спасибо. Все работает.