无法打开用 VBA 保存的 Word .docm 文档答案

【问题标题】：Cannot open Word .docm document saved with VBA无法打开用 VBA 保存的 Word .docm 文档
【发布时间】：2018-10-18 07:10:33
【问题描述】：

我正在尝试保存启用 Word 宏的模板，然后通过电子邮件发送生成的文件，但无法打开保存（和发送）为 .docm 的文件。它抛出这个错误：

"We're sorry. We can't open B.docm because we found a problem with its contents"

我需要做些什么来“转换”文档吗？找不到任何关于它的信息，每个人似乎都同意我保存文档的方式很好。

这是我正在使用的代码：

Private Sub CommandButton1_Click()

'Save Document
    Dim wdApp As Word.Application
    Set wdApp = GetObject(, "Word.Application")

    wdApp.ActiveDocument.SaveAs "H:\Word\B.docm"


'Send Email
    Dim outlook         As outlook.Application
    Dim maiMessage      As outlook.MailItem        

    Set outlook = New outlook.Application
    Set maiMessage = outlook.CreateItem(olMailItem)
    With maiMessage
        .Subject = "Sent"
        .Recipients.Add Name:="name@company.com"
        .Attachments.Add Source:="H:\Word\B.docm"
        .Send
    End With

End Sub

更多信息：

- If I save the document by normal means (File > Save as > .docm), it works.
- If I save the document using the macro but with .docx extension, it also works.

【问题讨论】：

我们缺少一些背景信息...原始文件的文件扩展名是什么？它是如何在 Word 中打开的（如果有代码，请编辑问题并插入该代码）？它实际上包含宏吗？如果您尝试打开您保存的文件（未发送），它会正常打开吗？

标签： vba ms-word

【解决方案1】：

您应该首先检查 SaveAs 方法。

您应该已经注意到，当您输入“.”时在 ActiveDocument 之后，智能感知选项列表中不存在 SaveAs。相反，您会得到 SaveAs2。

原因是 SaveAs 已被弃用并已被 SaveAs2 取代。旧方法仍然可用，但不能保证它会在未来的 Office/VBA 版本中继续存在。

SaveAs2 本身只是为 SaveAs 方法添加了一个新选项（兼容模式）。 SaveAs2 或选择兼容性的能力都不能解决您的问题。相反，您必须使用 F1。

在 VBA IDE 中，将光标放在任何关键字上并按 F1 将打开该关键字的 MS 帮助页面（如果该关键字存在）。如果您在 SaveAs 上按 F1，您将不会获得任何帮助，这是一个通用页面，但如果您在 SaveAs2 上按它，您将获得此帮助页面。

https://docs.microsoft.com/en-us/office/vba/api/word.saveas2?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Den-US%26k%3Dk(vbawd10.chm158007864)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

当您查看帮助页面时，您会看到 SaveAs2 方法的第二个参数是 'FileFormat'，即

文档的保存格式。可以是任何 WdSaveFormat 常量。要以另一种格式保存文档，请为 FileConverter 对象的 SaveFormat 属性指定适当的值。

当您只提供文件名时，SaveAs（现在 SaveAs2）没有抱怨的事实意味着该方法提供了一个默认选项，这很可能是“将此文档另存为 Word 格式文档”选项（wdFormatDocumentDefault）。

为了将文档保存为启用宏的 Word 模板，您需要指定枚举常量 wdFormatXMLTemplateMacroEnabled。

例如

wdApp.ActiveDocument.SaveAs "H:\Word\B.docm", wdFormatXMLTemplateMacroEnabled

如果您录制了一个宏，在此期间您将文档保存为模板以查看 Word 在相同情况下会做什么（诚然并不总是有帮助），您也必须使用此选项。

Sub Macro1()
'
' Macro1 Macro
'
'
    ChangeFileOpenDirectory _
        "C:\Users\user1\Documents\Custom Office Templates\"
    ActiveDocument.SaveAs2 FileName:= _
        "C:\Users\user1\Documents\Custom Office Templates\test.dotm", FileFormat _
        :=wdFormatXMLTemplateMacroEnabled, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=15
End Sub

祝你继续努力。

【讨论】：

【解决方案2】：

由于从模板创建的文档不包含任何宏，因此将其保存为 docm 格式毫无意义。此外，除非您在 SaveAs 行中实际指定文件格式，否则您将得到的只是本机格式 (docx)，在这种情况下，您只需更改扩展名以适应：

wdApp.ActiveDocument.SaveAs "H:\Word\B.docx"

并将其用于您的电子邮件附件。

【讨论】：