Стили и VBA

[Busine2009]

У меня вот эта ерунда не работает

Код: Выделить всё

Sub Styles()
Dim oStyle As Style
For Each oStyle In ActiveDocument.Styles
    oStyle.AutomaticallyUpdate = False
Next oStyle
End Sub

Пишет, что это свойство недоступно для данного объекта. Run-time error '5891'
Люди добрые, в чём дело?