如何使用VBA将embedded的Word文档作为单独的文件保存在Excel工作簿中
我正在创build一个工作簿，将embedded式Word文档模板与图片，然后保存在其他地方的文档，而无需编辑embedded的模板。 但是，当我尝试保存文档时，出现运行时错误4605，告诉我：“SaveAs方法或属性不可用，因为此文档正在另一个应用程序中编辑”
这是打开模板的子部分：
Sub OpenWord() 'Opens the template when the main function first runs Set WDObj = Sheets("Template").OLEObjects("Template") WDObj.Activate WDObj.Object.Application.Visible = False Set WDApp = GetObject(, "Word.Application") Set WDDoc = WDApp.ActiveDocument End Sub 在这之后，一个主要的子模块运行，然后当我尝试使用以下命令保存文档：
WDDoc.SaveAs "myDocument.doc", FileFormat:=wdFormatDocumentDefault
我得到错误。
请有任何人遇到这个错误之前/知道要修复它，我已经做了很多谷歌，还没有得到我的任何地方。
我testing了以下内容，这些内容适用于我的系统/安装：
Sub OpenWord() 'Opens the template when the main function first runs Dim WDObj As Object Dim WDApp As Object Set WDApp = GetObject(, "Word.Application") Set WDObj = Sheets("Template").OLEObjects("Template") WDObj.Activate WDObj.Object.Application.Visible = False WDApp.ActiveDocument.SaveAs ("YourFilename.doc") Set WDObj = Nothing Set WDApp = Nothing End Sub