Серый форум — VBA/VBS: Извлечь номер абзаца.

Re: VBA/VBS: Извлечь номер абзаца.

null@example.com (pant-79) — Sat, 02 Oct 2010 15:47:44 +0000

Ну, я так понял, objRange надо объявлять только в VBS?
И wdParagraph как константу тоже...
В VBA это, по-моему, проще...

Кстати, если выделение меньше абзаца, для конца выделения номер вычисляется с ошибкой почему-то.

Re: VBA/VBS: Извлечь номер абзаца.

null@example.com (alexii) — Sat, 02 Oct 2010 12:13:56 +0000

…
With objWord
    …
    Set objRange = .Selection.Range
    
    objRange.Expand wdParagraph
    
    WScript.Echo "Начало выделения — абзац №" & CStr(.ActiveDocument.Range(0, objRange.Start).Paragraphs.Count + 1)
    WScript.Echo "Конец выделения  — абзац №" & CStr(.ActiveDocument.Range(0, objRange.End).Paragraphs.Count)
    …
End With
…

* получаем из выделения диапазон («objRange»);
* расширяем этот диапазон (само выделение не трогаем!) до границ абзацев;
* считаем число абзацев в диапазоне [от начала документа («0») до начала «нашего» диапазона («objRange.Start»)], добавляя +1, — это номер первого абзаца в выделении;
* аналогично считаем число абзацев в диапазоне [от начала документа («0») до конца «нашего» диапазона («objRange.Start»)] — это номер последнего абзаца в выделении.

VBA/VBS: Извлечь номер абзаца.

null@example.com (pant-79) — Sat, 02 Oct 2010 10:40:09 +0000

Полдня уже бьюсь над этой проблемой.
Как извлечь в Word номер абзаца, на котором сейчас стоит выделение (Selection то бишь)?