vba - 在 Word 中创建命令按钮以另存为，但文件格式必须启用宏

Question

我几乎没有编码经验，我浏览了这些论坛，但找不到专门针对 Microsoft Word 的答案。

我创建了两个命令按钮，第一个需要用户单击，它使他们能够另存为表单，然后他们将单击下一个按钮以“单击发送”，我已经为“单击”轻松完成了代码发送'。问题在于“另存为”按钮是我无法让它自动将默认的另存为类型更改为“启用 Word 宏的文档”，因为它目前只是默认为“Word 文档”

我知道有多种方法可以为一键式命令按钮添加多个功能，但我现在真的希望这些功能分开。我用于“另存为”按钮的当前代码是：

Private Sub CommandButton2_Click()

Application.FileDialog(msoFileDialogSaveAs).Show

End Sub

任何帮助将不胜感激。谢谢！

标签： vbams-word

Answer 1

这将提示 SaveAs File 对话框.docm作为默认文件类型：

Private Sub CommandButton2_Click()

    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 2 '.docm file format
        .Show
        
        If .SelectedItems.Count <> 0 Then
            ThisDocument.SaveAs2 .SelectedItems(1), wdFormatXMLDocumentMacroEnabled
        End If
    End With
End Sub