保存嵌入的Word文档

我已经创建了下面的代码在一个Excel工作表导出一个嵌入的Word文档到工作簿的路径：保存嵌入的Word文档

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，但是当我添加这些行时，出现“对象不支持此属性或方法”错误。

请指教。

来源

2014-03-29 CaptainABC

'objWord'是文件：如果你想获得对Word实例的引用，那么也许尝试'objWord.Application' –

@TimWilliams谢谢！有效！ – CaptainABC

我猜你想要这个

objWord.Application.Visible = False

这

objWord.Application.Quit

来源

2014-03-29 21:06:19

这样做。完全忘了添加'.Application'部分。谢谢 – CaptainABC

保存嵌入的Word文档

回答

相关问题