Изменение свойств документа Word или как еще задать желаемое название при сохранении - VBA

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

Добрый день! Задача такая: Формирую документ word программно из access (на основе шаблона) так:

Set App = New Word.Application
App.Documents.Add CurrentProject.Path & "\Template\" & "TempName.dot"
With App.ActiveDocument
...

При нажатии "Сохранить" в полученном документе в качестве названия по умолчанию подставляется то, что написано в свойствах документа в поле "Название", а хотелось бы задать свое. Задаю программно это свойство:

Dim bp As Word.WdBuiltInProperty
bp = wdPropertyTitle
MsgBox "Прежнее значение: " & .BuiltinDocumentProperties(bp)
.BuiltinDocumentProperties(bp) = "123456789"
MsgBox "Новое значение: " & .BuiltinDocumentProperties(bp)

Название меняется, но при нажатии "Сохранить" опять показано старое значение, а изменяется оно на новое только если открыть свойство документа из меню "Файл" и там нажать ОК. Я так понимаю, ворду нужна команда для перезагрузки значений свойств. Есть такая? Или какие еще могут быть варианты для задания своего названия при открытии диалога сохранения?

Решение задачи: «Изменение свойств документа Word или как еще задать желаемое название при сохранении»

textual
                            Листинг программы 
                        

                            If Set_NameDoc = True Then ' если разрешено предустановленное название
App.ActiveDocument.SaveAs Environ("temp") & "\TempD.doc"
App.Quit False
 
Set App = New Word.Application
App.Documents.Add Environ("temp") & "\TempD.doc"
End If
 
App.Visible = True
AppActivate (App.Caption)
Set App = Nothing
                        