Question

我正在尝试根据内容控件的内容更改＆＃34; Save As＆＃34; -Dialog中的建议文件名。

我的理解是Word在Title对话框中提出了文档属性“SaveAs”。

在一个空文档中，我创建了一个内容控件（仅限文本），并将以下代码放入＆＃34;本文档＆＃34;。

Private Sub Document_ContentControlOnExit(ByVal objCC As ContentControl, _
        Cancel As Boolean)
    ActiveDocument.BuiltInDocumentProperties("Title") = objCC.Range.Text
End Sub

内置属性＆＃34; Title＆＃34;按预期更改，但按“另存为”按钮不会更改建议的文件名取消＆＃34; SaveAs＆＃34; -Dialog并再次打开它（之间没有任何其他操作）＆＃34; new＆＃34;标题被建议为默认文件名。

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

...

是否有针对此功能的解决方法＆＃34;功能＆＃34;或者我错了吗？

Answer 1

我可能误解了

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

这会产生＆＃34; Asparagus＆＃34;

这也是保存时建议的FileName。

在SaveAs对话框中更改默认文件名

1 个答案: