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

RomaS · 15 ноя 2012, 13:14

Добрый день!
Задача такая:
Формирую документ 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)

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

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