從 VBA Excel 打開和關閉 Word 文檔

Question

我在 VBA Excel 中開發了一個小程序。 這是一個好的開始，但是我調整了一些預設——一個網站推薦了這個，就像從 MS Word 中提取文本一樣。 我刪除了我正在處理的所有代碼，如下所示：

Function FnOpeneWordDoc()

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Open("C:\Users\Filepath\Example1.docx")

   objWord.Visible = True

End Function

它打開任務管理器中引用的 Word 文檔，但不是從界面中引用的。

上面的程序掛了一段時間並返回以下內容：

Microsoft Office Excel 正在等待另一個應用程序完成 OLE 操作。

最后運行停止，我最終得到運行時錯誤“-2147023170 (800706be)”：自動化遠程調用失敗。

*我已經嘗試了所有基本技巧，例如關閉所有 Excel 和 Word 實例。

Answer 1

您應該在Set objWord = CreateObject("Word.Application")之后立即添加objword.Visible = True

Answer 2

我測試了這個程序，它在 2.3 秒內打開了“Example1.docx”文檔。

Public Sub FnOpeneWordDoc()    
Dim WordApp As Word.Application, WordDoc As Word.Document

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Users\Filepath\Example1.docx")

End Sub