Saveas对话框未将wdFormatDocumentDefault识别为dotx，显示为PDF

Question

我一直在尝试这段代码：

Dim dlgSaveAs As Dialog
Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)

With dlgSaveAs

    ' This according to every site I've looked at should set the Save As Type to .docx

    .Format = wdFormatDocumentDefault   
    .Display

End With

但是当显示对话框时，＆＃34;另存为类型＆＃34;显示为PDF。

代码位于模板文档（.dotm）的MyDocuments模块中。

背景：模板是一个带有书签的字母，用一个Form中的文本替换，然后从表单中的字段填写书签。我试图将更新后的字母保存为.docx文件。

[我没有寻找与表格或书签的使用相关的建议 - 如果问题与模板/表格/书签有关，我会提供上下文，我非常怀疑]

Template Project Modules

Save As Dialog

Answer 1

这个怎么样？

.Format = WdSaveFormat.wdFormatXMLDocument

通过输入wdSaveFormat + period，您可以看到格式的枚举。