Присвоение стиля абзацу из Range. КАК??

[DBEER]

В Selection выделено несколько абзацев.
Я их выбираю, каждый проверяю на вшивость в цикле,
если то, что надо, меняю (ХОЧУ!!) стиль этого абзаца.
ВОт так:

    Dim p As Paragraph
    Dim RR As Range

    Set RR = Selection.Range
    For Each p In RR.Paragraphs
'Здесь кой-какая логика - проверка
' и если условие выполняется, то:
        p.Range.Style = ActiveDocument.Styles("МОйСТиль")
    Next

Но в результате меняется стиль у всего Selection'а и цикл рвется.
Догадываюсь, что дело в позиционировании объектов, но нальше ПЛЫВУ.
Поможите, люди добрые .

[shanemac51]

попробуйте так

Sub w150202_1138()
Dim p As Paragraph, s1
   

    For Each p In Selection.Paragraphs
'Çäåñü êîé-êàêàÿ ëîãèêà - ïðîâåðêà
' è åñëè óñëîâèå âûïîëíÿåòñÿ, òî:
If Len(p.Range.Text) < 10 Then
        p.Range.Style = ActiveDocument.Styles("ÑÒèëü1")
        End If
    Next
End Sub

[DBEER]

Все отличие в строке:

Dim p As Paragraph, s1

, где
присутствует "s1"
и результат тот же:
Стиль присваивается всему Selection'у и цикл рвется.

[DBEER]

а потом начал пробовать с Range. Те же грабли - не получаю доступа к отдельному Paragraph'у

[shanemac51]

у меня нормально отрабатывает

[DBEER]

Да, в Вашем файле отрабатывает..Буду искать ( М.б. дело в конструкции стиля моего.. (ВОзможно, мне дадут Нобелевскую..посмертно(

[shanemac51]

проверяйте условие отбора
не портите ли вы там select или range

[DBEER]

Да, вроде, зашуршало.. Большое спасибо, Галина.
Выручаете меня уже не впервые.