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

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)

Sub Procedure_1()
    
    Application.Dialogs(86).Show
 
End Sub

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