"Активный" абзац в WORDе

[vfayans]

В VBA EXCEL адрес активной ячейки определяется элементарно (activecell.address, activecell.row, activecell.column). А вот при первом знакомстве с VBA WORD способ определить номер выделенного абзаца мне найти не удалось. Но ведь без этого никак ?

[akokin]

Например, так (текущий абзац, т.е. в котором находится курсор ввода):

MsgBox ActiveDocument.Range(1, Selection.Start).Paragraphs.Count

[viter.alex]

Наименьшей структурной единицей в Word является символ (character).

Номер абзаца определяется так:

ActiveDocument.Range(0, Selection.Start).Paragraphs.Count

чтобы не повторять Антона Кокина, добавлю, что это можно прочитать так: количество абзаце в части документа от первого символа до местоположения курсора.

[akokin]

Если курсор ввода стоит в начале первого предложения абзаца, то наш код будет давать неверный результат, а именно номер предыдущего абзаца (параграфа).

[Вождь]

Сообщение от akokin

Если курсор ввода стоит в начале первого предложения абзаца, то наш код будет давать неверный результат, а именно номер предыдущего абзаца (параграфа).

Лучше писать так:

Public Function Selection_ParagraphNumber() As Long
' возвращает порядковый номер от начала документа
' первого выделенного параграфа (-1 при ошибке)

    Selection_ParagraphNumber = -1
    On Error Resume Next
    If Application.Documents.Count <= 0 Then
    Else
        Selection_ParagraphNumber = ActiveDocument.Range(0, _
            Selection.Paragraphs.First.Range.End).Paragraphs.Count
    End If
    
End Function

[akokin]

Александр, спасибо за функцию определения номера активного абзаца - интересно и полезно лично для меня.
И второе (отправил вам письмо, но не уверен, что дойдет, поэтому повторяю здесь) - у вас не отображается домашняя страница, а следовательно, нет возможности скачать вашу методичку у меня на сайте. Может быть стоит разместить ее у меня на сайте (я говорю о файле)?
Жду вашего ответа.

[Вождь]

Сообщение от akokin

Александр, спасибо за функцию определения номера активного абзаца - интересно и полезно лично для меня.
И второе (отправил вам письмо, но не уверен, что дойдет, поэтому повторяю здесь) - у вас не отображается домашняя страница, а следовательно, нет возможности скачать вашу методичку у меня на сайте. Может быть стоит разместить ее у меня на сайте (я говорю о файле)?
Жду вашего ответа.

Мой сайт уже заработал. Это tut.by периодически сбоит.

Письмо не получил. Пишите methodichka@gmail.com

Ваш E-mail не нашел, потому пишу здесь.