Sub Изменение_свойства_файла_Ворд()

'изменение свойства файла Ворд
'Файл - Свойства... В окне "Свойства Документ Заметки
Dim bp As Word.WdBuiltInProperty
'задает свойство PropertyComments Комментарии Заметки
bp = wdPropertyComments
'читает свойство
Dim Свойство As String
Свойство = ActiveDocument.BuiltInDocumentProperties(bp)
'изменение, запись свойства
ActiveDocument.BuiltInDocumentProperties(bp) = "ЦЭ"
'читает свойство
Dim Свойство1 As String
Свойство1 = ActiveDocument.BuiltInDocumentProperties(bp)
If Свойство = Свойство1 Then Beep
    
End Sub