使用 VBA 将 Excel 电子表格中嵌入的 Word 文档保存到磁盘

Question

我们有一个 Excel 电子表格，当前使用存储在公司 LAN 上的 Word 模板生成报告。这对于内部用户来说效果很好，但对于没有连接到 LAN 的任何人（例如笔记本电脑用户）来说则不然。

管理层不希望将模板作为单独的文件分发给外部用户，而是希望将其嵌入到隐藏工作表的电子表格中。然后建议在生成报告时，将嵌入的模板保存到用户临时路径并从那里生成报告。

那么我的问题是如何使用 VBA 将嵌入的 Word 模板保存到磁盘。这似乎是一个简单的任务，但我还没有在谷歌上找到解决方案。任何帮助将不胜感激。

Answer 1

好吧，我想我可能有了答案，但它只在 Excel 2010 中进行了测试。

Sub SaveEmbedded()
Dim sh As Shape
Dim objWord As Object ''Word.Document
Dim objOLE As OLEObject

    ''The shape holding the object from 'Create from file'
    ''Object 2 is the name of the shape
    Set sh = ActiveSheet.Shapes("Object 2")

    ''Activate the contents of the object
    sh.OLEFormat.Activate

    ''The OLE Object contained
    Set objOLE = sh.OLEFormat.Object

    ''This is the bit that took time
    Set objWord = objOLE.Object

    ''Easy enough
    objWord.SaveAs2 Filename:="c:\docs\template.dot", FileFormat:= _
    wdFormatTemplate ''1=wdFormatTemplate
End Sub

Answer 2

检查 MSDN 文档。

我相信您正在寻找 SaveAs 方法。

这里有一个例子； MSDN - VBA 参考 - 另存为方法