Форум по VBA и MS Office

Добрый день!
Помогите пожалуйста решить такой вопрос: мне нужно назначить стиль текста с названием "Обычный" на пустые абзацы (содержащие только знак абзаца) в выделенном фрагменте текста.

Sub Макрос()
    Dim par As Paragraph
    Application.ScreenUpdating = False
    For Each par In Selection.Paragraphs
        If par.Range.Characters.Count = 1 Then
            par.Style = "Обычный"
        End If
    Next par
    Application.ScreenUpdating = True
End Sub

Большое спасибо! Выручили!