Помогите полусить значение свойства "Редакция" посредством VBA

[Ir04ka]

Привет. Очень нужна помощь
В Word есть свойство "Редакция" которая представляет собой счётчик, который увеличивается при сохранении изменённого документа. Редакцию можно посмотреть на вкладке статистика свойств документа. Подскажи мне, пожалуйста, как можно получить значение свойства "Редакция" посредством VBA.

[Serge_Bliznykov]

Sub ShowRevison()
  Dim PropertyValue$
  On Error Resume Next  ' программная обработка ошибок
  PropertyValue = ActiveDocument.BuiltInDocumentProperties(wdPropertyRevision).Value
  If Err.Number <> 0 Then
    PropertyValue = "Не определено"
    Err.Clear  ' очистка ошибки
  End If
  MsgBox "Редакция документа = " & PropertyValue
End Sub

почитать можно прямо на MicroSoft:
Совет 382. Как узнать значение свойств документа Word
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
http://www.vbforums.com/archive/index.php/t-409760.html