Excel VBA复用Word实例时打开空文档问题求助

你遇到的空白文档问题，根源在这行代码：

Set wdDocTgt = wdApp.Documents.Add

不管cmdCheckBoxSingle是否勾选，这行都会强制创建一个新的空白Word文档。当复用已有Word实例时，这个空白文档就会被额外打开，导致出现两个文档；而新建实例时，空白文档可能被后续操作掩盖，但实际上它依然存在。

解决方案 #

把目标文档的创建逻辑仅放在需要合并文档的分支里（即cmdCheckBoxSingle.Value = True时），同时优化实例可见性设置，确保复用实例时窗口能正确显示。

修改后的完整代码：

Sub OpenWord()
    If Not Initialized Then Initialize
   
    ' 获取或创建Word实例
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number > 0 Then 
        Set wdApp = New Word.Application
        wdApp.Visible = True ' 新建实例时直接设置可见
    Else
        wdApp.Visible = True ' 复用已有实例时确保窗口可见
    End If
    On Error GoTo 0
  
    Dim rows() As String
    Dim row As Variant
    Dim Path As String
    Dim current_folder As String
    Dim cur_file_name As String
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim docWord As Word.Document
    Dim wdDocTgt As Word.Document ' 先声明，不提前初始化
    
    current_folder = Application.ActiveWorkbook.Path
    rows = Split(Sheet2.Range("V6"))

    For Each row In rows
        row = CInt(row)
        Dim FileName As String, FullFileName As String ' 修正变量声明，避免变体类型
        cur_file_name = Sheet3.Cells(row, 5)
        cur_file_name = fso.GetBaseName(cur_file_name)
        Path = current_folder & "/EXPERTSHEETS" & "/" & Sheet3.Cells(row, 14) & "/" & Sheet3.Cells(row, 5) & ".docx"
        
        If indexsheet.cmdCheckBoxSingle.Value = False Then
            ' 单独打开文档，不需要创建目标文档
            Set docWord = wdApp.Documents.Open(FileName:=Path, ReadOnly:=True, AddToRecentFiles:=False)
        Else
            ' 仅当需要合并时，才创建目标文档（只创建一次）
            If wdDocTgt Is Nothing Then
                Set wdDocTgt = wdApp.Documents.Add
            End If
            With wdDocTgt.Bookmarks("\StartOfDoc").Range
                .InsertFile FileName:=Path, _
                    ConfirmConversions:=False, Link:=False, Attachment:=False
                .InsertBreak Type:=2    ' wdSectionBreakNextPage = 2
            End With
        End If
    Next row
  
    If indexsheet.cmdCheckBoxSingle.Value = True And Not wdDocTgt Is Nothing Then
        wdDocTgt.Characters(1).Delete
    End If
End Sub

关键改动说明 #

• 移除提前创建wdDocTgt的代码，改为仅在合并分支里判断是否需要创建，避免不必要的空白文档
• 修正FileName的变量声明，避免因语法问题导致的变体类型错误
• 统一设置wdApp.Visible = True，确保无论复用还是新建实例，Word窗口都能正常显示
• 增加wdDocTgt Is Nothing的判断，防止多次创建目标文档

内容的提问来源于stack exchange，提问作者Michael Chen