Не меняются свойства Word документа - VB

Формулировка задачи:

Друзья, подскажите пожалуйста, почему не меняются свойства Ворд документа ? В архиве проект VB6 и два файла Ворд. Свойства второго меняются, а первого нет. Если сделать подобный макрос в самом документе, то после его выполнения и закрытия файла с сохранением всё работает. А из под VB6 такое не получается, в чём тут может быть дело ? Код использую такой

Private Sub Command1_Click()
 
    Dim word As Object, doc1 As Object, doc2 As Object, s As String, s1 As String, s2 As String
    
    Randomize 
    s = CStr(Int(Rnd * 10000))
    
    Set word = CreateObject("Word.Application")
    word.Visible = False
      
    Set doc1 = word.Documents.Open(App.Path & "\Пример-1.doc")
    Set doc2 = word.Documents.Open(App.Path & "\Пример-2.doc")
    doc1.BuiltinDocumentProperties(3) = s
    doc2.BuiltinDocumentProperties(3) = s
    doc1.save
    doc1.Close True
    
    Set doc1 = word.Documents.Open(App.Path & "\Пример-1.doc")
    Set doc2 = word.Documents.Open(App.Path & "\Пример-2.doc")
    s1 = doc1.BuiltinDocumentProperties(3)
    s2 = doc2.BuiltinDocumentProperties(3)
    doc1.save
    doc1.Close True
    
    word.Quit True 'False
    Set word = Nothing
    Set doc1 = Nothing
    Set doc1 = Nothing
     
    MsgBox "Поменялось1=" & CBool(s = s1) & "; Поменялось2=" & CBool(s = s2)
     
End Sub

Спасибо за внимание

Решение задачи: «Не меняются свойства Word документа»

textual
                            Листинг программы 
                        
                                doc1.save
    doc1.Close True