Как изменить свойства документа?

[Solyarka]

Есть необходимость поменять в свойствах документах название (wdPropertyTitle) и организацию (wdPropertyCompany). Получить я эти свойства могу (BuiltInDocumentProperties), а вот как их изменить?
Заранее спасибо за ответ.

Вопрос снимается, проблема решена:

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

[viter.alex]

Ещё раз убедился, что формулировка вопроса на форуме значительно помогает в решении вопроса.
Код нужно оформлять тегом [code][/code]