Как определить номер параграфа, в котором найден фрагмент текста

Анатолий задал вопрос:

Option ExplicitSub 
HorPos()
'Определение позиции курсора по горизонтали в сантиметрах
Dim Location As Double
Location = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
MsgBox PointsToCentimeters(Location)
End Sub

Если нужно определить номер параграфа, то это можно сделать так:

Sub numPar()
'Определяем номер текушего абзаца (параграфа), где стоит курсор
Dim sN As Long
sN = ActiveDocument.Range(1, Selection.Start).Paragraphs.Count
MsgBox sN
End Sub