我正在尝试更改“中建议的文件名”Save As
“-基于内容控件内容的对话框。
我的理解是Word正在提议文档属性“Title
“ 内SaveAs
Dialog.
在一个空文档中,我创建了一个内容控件(仅限文本)并将以下代码放入“此文档”中。
Private Sub Document_ContentControlOnExit(ByVal objCC As ContentControl, _
Cancel As Boolean)
ActiveDocument.BuiltInDocumentProperties("Title") = objCC.Range.Text
End Sub
内置属性“Title
" 按预期在休假时更改,但按“另存为”按钮并未更改建议的文件名。
取消“SaveAs
“-对话框并再次打开它(中间没有任何其他操作),建议将“新”标题作为默认文件名。
Process:
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
这会产生“芦笋”
这也是保存时建议的文件名。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)