A family of Microsoft word processing software products for creating web, email, and print documents.
Does this do what you want?
Sub Select3rdPara()
If ActiveDocument.Paragraphs.Count >= 3 Then
ActiveDocument.Paragraphs(3).Range.Select
End If
End Sub