Проблемы с размером нумерации списков

Да, помню было такое дело, еще аж со времен FR8. Если шрифт в формате списка задать явно (Size <> wdUndefined), то он меняться не будет. Точнее будет, только если выбрать маркер списка. Запамятовал, но избавится от размера шрифта кажется проблематично.

Напиши, пожалуйста. Мне нужно, чтобы все нумерованные списки и маркеры были размером 36 пт.

Спасибо, aap77 макрос для всего текста отлично работает.
Но, поскольку файл у меня здоровый, макрос где-то к середине файла подвисает.
Действительно, хорошо бы сделать обработку выделеных отрывков.
Однако приведенный здесь макрос дает ошибку Run-time error 91: Object variable or With block variable not set.
Посоветуй, пожалуйста, как это исправить?

Заменил ActiveDocument.Paragraphs на Selection.Paragraphs, и все пошло! В итоге получилось так:

Sub Макрос()
'
' Макрос
'
    Dim prg As Paragraph
    Dim inp As Byte, i As Byte
    inp = 36 ' По умолчанию размер шрифта выделения
    For Each prg In Selection.Paragraphs
            Select Case prg.Range.FormattedText.ListFormat.ListString
            Case Is <> ""
                With prg.Range.FormattedText.ListFormat.ListTemplate
                    For i = 1 To .ListLevels.Count
                        .ListLevels(i).Font.Size = inp
                    Next i
                End With
        End Select
    Next prg
End Sub

Еще раз большое спасибо!