Excel VBA 文档。打开打开另一个空word文档

Question

我使用 Excel 用户窗体和 VBA 尝试从列表框选择中打开 Word 文档。它会打开所需的 Word 文档，但也会同时打开一个空文档。

我尝试使用原始的单词对象，而不是每次都创建新的单词对象

  On Error Resume Next
  Set wdApp = GetObject(, "Word.Application")
  If Err.Number > 0 Then Set wdApp = New Word.Application
  On Error GoTo 0

但是，它总是会打开两个word文档（一个是空的）。 但如果我每次都创建一个新的单词实例，它就会起作用（仅打开所需的单词实例），这是我不想要的。

Set wdApp = New Word.Application

任何意见或帮助将不胜感激！谢谢！

我尝试使用两种方式来创建单词实例。我希望我可以只打开想要的word文档，而不是每次都创建新的word实例。

1. 打开两个word文档，其中一个是空的，不想要的

  On Error Resume Next
  Set wdApp = GetObject(, "Word.Application")
  If Err.Number > 0 Then Set wdApp = New Word.Application
  On Error GoTo 0

2. 只打开想要的word文档，但我希望只能使用一个word实例，而不是每次都创建一个新的实例

Set wdApp = New Word.Application

Answer 1

请访问以下文件夹并清除文件夹中的内容。

C:\Users\username\AppData\Roaming\Microsoft\Word\STARTUP

您可能需要在清除该文件夹之前对其进行备份。

谢谢