форум программистовhttps://www.developing.ru/
https://www.developing.ru/viewtopic.php?t=11940
Код: Выделить всё
p = ActiveDocument.Range(1, Selection.Start).Paragraphs.Count