SaveAs对话框未识别wdFormatDocumentDefault，默认显示PDF问题

问题分析 #

你遇到的问题根源在于wdFormatDocumentDefault这个常量的行为：它并不是固定指向.docx格式，而是依赖于Word当前的默认保存格式设置。如果你的Word默认保存格式被配置为PDF，或者在.dotm模板的运行环境下默认关联了其他格式，这个常量就会让对话框显示PDF而非你预期的docx。

解决方案 #

直接使用明确的docx格式枚举值wdFormatXMLDocument来替代wdFormatDocumentDefault，这样就能强制对话框将保存类型固定为.docx。修改后的代码如下：

Dim dlgSaveAs As Dialog
Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
With dlgSaveAs
    ' 明确指定保存格式为.docx
    .Format = wdFormatXMLDocument
    .Display
End With

补充说明 #

• wdFormatXMLDocument是Word VBA中专门对应.docx格式的枚举常量（值为12），使用它可以彻底避免默认设置带来的不确定性。
• 如果你的代码需要兼容更早版本的Word（比如2007之前），可以额外增加版本判断逻辑，但对于现代Word环境，这个枚举值是完全可靠的。

内容的提问来源于stack exchange，提问作者Crazy Brit