从 VBA Excel 打开和关闭 Word 文档

Question

I developed a small program in VBA Excel. It was a good start however I adjusted some presets -- a website recommended this as would be pulling text from MS Word. I stripped out all of the code I was working on to the following:

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

It opens a Word document referenced in the task manager, but not from the interface.

The program above hangs for a while and returns a the following:

Microsoft Office Excel is waiting for another application to complete an OLE action.

Finally the run stops and I end up with Run-Time Error '-2147023170 (800706be)': Automation The Remote call failed.

*I've tried all the basic tricks such as shutting down all instances of Excel and Word.

Answer 1

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

Answer 2

I tested this Procedure and it opens up the "Example1.docx" Document within 2.3 seconds.

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