Vba 在“另存为”对话框中更改默认文件名

我正在尝试根据内容控件的内容更改“

另存为”

”对话框中建议的文件名

我的理解是Word在

SaveAs

对话框中提议文档属性“code>Title”

在一个空文档中，我创建了一个内容控件（仅文本），并将以下代码放在“ThisDocument”中

内置属性“

Title

”在休假时按预期更改，但按“另存为”按钮并没有更改建议的文件名。
取消“

SaveAs

”对话框并再次打开它（其间没有任何其他操作），“新”标题被建议作为默认文件名

过程：
1.将标题更改为“新文件名”
2.按另存为->建议的文件名“Doc1”
3.取消另存为
4.按另存为->建议的文件名“新文件名”
5.将标题更改为“更好的文件名”
6.按另存为->建议的文件名“新文件名”
7.取消另存为
8.按另存为->建议的文件名“更好的文件名”

---

这个“功能”有解决办法吗？还是我错了？

我可能误解了

Sub test()

Dim objCC As ContentControl

Set objCC = ActiveDocument.ContentControls.Add(wdContentControlText)

objCC.Range.Text = "Asparagus"

End Sub

Private Sub Document_ContentControlOnExit(ByVal objCC As ContentControl, Cancel As Boolean)
    MsgBox ActiveDocument.BuiltInDocumentProperties("Title")
End Sub

这就产生了“芦笋”

---

这也是保存时建议的文件名。

这是哪个版本的Word？它是Word 2013。这里的解决方案是：只要我将objCC.Range.Text分配给标题值，标题值就会更改。但是建议的文件名只会在第二次单击保存按钮时更改。

Sub test()

Dim objCC As ContentControl

Set objCC = ActiveDocument.ContentControls.Add(wdContentControlText)

objCC.Range.Text = "Asparagus"

End Sub

Private Sub Document_ContentControlOnExit(ByVal objCC As ContentControl, Cancel As Boolean)
    MsgBox ActiveDocument.BuiltInDocumentProperties("Title")
End Sub