保存嵌入的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文檔

回答

相關問題