从Excel VBA保存embedded的Word文档

我创build了下面的代码，用于将Excel工作表中的embedded式Word文档导出到工作簿的path中：

Private Sub Export() Dim sh As Shape Dim objWord As Object 'Word.Document Dim objOLE As OLEObject Set sh = Sheet1.Shapes("Object 1") sh.OLEFormat.Activate Set objOLE = sh.OLEFormat.Object Set objWord = objOLE.Object objWord.SaveAs2 Filename:=ActiveWorkbook.Path & "\MyTemplate.docx", FileFormat:= _ wdFormatDocumentDefault End Sub 

上面的代码工作正常，但我想补充说，Word应用程序启动为不可见，并且它在代码结束时退出MS Word。 我曾尝试使用objWord.Visible = False和objWord.Quit但是当我添加这些行我得到一个“对象不支持此属性或方法”错误。

请指教。

Answer 1

我想你想要这个

 objWord.Application.Visible = False 

和这个

 objWord.Application.Quit