从 Excel (2007) VBA 保存嵌入的 word 文档

Question

我创建了以下代码，用于将 Excel 工作表中的嵌入 Word 文档导出到工作簿的路径：

Private Sub Export()

Dim sh As Shape
Dim objWord As Object 'Word.Document
Dim objOLE As OLEObject

    Set sh = Sheet5.Shapes("Object 1")

    sh.OLEFormat.Activate

    Set objOLE = sh.OLEFormat.Object

    Set objWord = objOLE.Object

    objWord.Application.Visible = False

    objWord.SaveAs2 Filename:=ActiveWorkbook.Path & "\MyTemplate.docx", FileFormat:= _
    wdFormatDocumentDefault

    objWord.Application.Quit

End Sub

它在 Excel 2013 上运行良好，但是当我尝试在我的办公室在 Excel 2007 上运行它时，它在 @ 行出现运行时错误“438”“对象不支持此属性或方法” 987654322@

尝试过定义 objWord 但没有运气。有什么建议吗？

Answer 1

用这个代替：

objWord.SaveAs Filename:=ActiveWorkbook.Path & "\MyTemplate.docx", FileFormat:= _
    wdFormatDocumentDefault

方法SaveAs2仅在word 2010中引入。

另外，如果您没有在 excel vba 中添加对单词库的引用，您可能需要将单词常量 wdFormatDocumentDefault 更改为其值 16：

objWord.SaveAs Filename:=ActiveWorkbook.Path & "\MyTemplate.docx", FileFormat:=16