在 Word 中创建命令按钮以另存为但文件格式必须为 Macros-Enabled

Question

我几乎没有编码经验，我在这些论坛中进行了搜索，但找不到专门针对 Microsoft Word 的答案。

我创建了两个命令按钮，第一个按钮要求用户单击并使他们能够另存为表单，然后他们将单击下一个按钮 'Click to Send' 我已经完成了代码轻松换了'Click to Send'。 “另存为”按钮的问题是我无法让它自动将默认的“另存为”类型更改为“Word Macro-Enabled 文档”，因为它目前一直默认为“Word 文档”

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

Private Sub CommandButton2_Click()

Application.FileDialog(msoFileDialogSaveAs).Show

End Sub

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

Answer 1

这将提示“另存为文件”对话框，其中 .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

在 Word 中创建命令按钮以另存为但文件格式必须为 Macros-Enabled

Creating a Command Button in Word to Save As but the file format must be Macros-Enabled

vba

ms-word