Форум по VBA и MS Office

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