Question

我创建了以下代码，用于将Excel工作表中的嵌入式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但是当我添加这些行时，我得到了一个＆＃34;对象不支持这个属性或方法＆＃34;错误。

请告知。

Answer 1

我想你想要这个

objWord.Application.Visible = False

和这个

objWord.Application.Quit

从Excel VBA保存嵌入的Word文档

1 个答案: