Проверить "целостность" выделения абзацев в Word 2010

[Serg_2013]

Приветствую.

Пишу макрос, который должен произвести некие действия с выделенным фрагментом текста. Для работы этого макроса важно, чтобы пользователь выделил 1 или более абзацев ЦЕЛИКОМ (а не слова/фразы внутри абзацев). Соответственно, макрос должен начинаться с IF-проверки выполнения этого необходимого условия.

Подскажите, пожалуйста, какой-нибудь простой и корректный способ выполнения этой проверки.

[Скрипт]

Serg_2013, признаком абзаца в программе "Word" является символ "Знак абзаца".

Т.е. макрос должен смотреть, есть справа и слева знаки абзаца. Если есть, значит выделен абзац, если нет, значит не выделен абзац.

[Serg_2013]

Т.е. макрос должен смотреть, есть справа и слева знаки абзаца. Если есть, значит выделен абзац, если нет, значит не выделен абзац.

Спасибо. Напишите, если не сложно, выражение, возвращающее символ, стоящий непосредственно ПЕРЕД Selection.

[Скрипт]

Вывод результата в View - Immediate Window:

Sub Procedure_1()

    Debug.Print Asc(Selection.Characters.First.Previous.Text)

End Sub

[Sasha_Smirnov]

Попробуйте извлечь пользу из моих получасовых изысканий! Вот отчёт.

Sub WholeThePar()
    With Selection.Range.Characters
        'если 1-й символ в выделенном не является 1-м в документе
        If .First <> ActiveDocument.Range.Characters.First Then
            If Asc(.Last) = Asc(.First.Previous) Then
                If Asc(.Last) = 13 Then
                    MsgBox "Пользователь выделил весь абзац!"
                End If
            End If
        'если 1-й символ в выделенном является 1-м в документе: смотрим код последнего
        Else
            If Asc(.Last) = 13 Then MsgBox "Пользователь выделил весь абзац!"
        End If
    End With
End Sub

(По моим оценкам, вышеизложенный код говорит правду.)

Сообщение от Скрипт

Вывод результата в View - Immediate Window

А вот, кстати, и иллюстрация:

[Скрипт]

Вариант, основанный на использовании "Range":

Sub Procedure_1()

    If Selection.Start = Selection.Paragraphs(1).Range.Start And _
            Selection.End = Selection.Paragraphs.Last.Range.End Then
        MsgBox "Выделен абзац или абзацы целиком."
    End If

End Sub

[Serg_2013]

Скрипт, Sasha_Smirnov: спасибо! То, что надо!

[Скрипт]

Serg_2013, только нужно ещё учитывать, что есть разные способы выделения:

1. просто выделение мышью;
2. выделение с использованием клавиши "Ctrl".

Если выделено с помощью клавиши "Ctrl", то информацию узнать можно только о последнем выделенном фрагменте. Чтобы узнать информацию обо всём выделенном фрагменте - нужно выделить каким-нибудь цветом и проанализировать фрагмент документа, выделенный специальным цветом.