Word VBA调用宏打开选定Word文件后复制内容到主文档失效求助

• 核心错误：第一个test宏中使用CreateObject("Word.Application")新建了独立的Word进程打开Document B，运行test6的当前Word实例无法直接访问另一个进程里的文档，后续Selection.WholeStory选中的根本不是Document B的内容，导致复制粘贴失效。
• 次要问题：依赖Selection、Activate这类依赖窗口焦点的操作稳定性差，很容易因为焦点漂移出现异常，更推荐直接用文档对象引用操作内容。

宏1（test：选择并打开Document B） #

Sub test()
    Dim intChoice As Integer
    Dim strPath As String
    ' 移除新建Word实例的逻辑，直接在当前进程打开文档
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    intChoice = Application.FileDialog(msoFileDialogOpen).Show
    ' 用户选中文件后执行打开操作
    If intChoice <> 0 Then
        strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
        Documents.Open strPath
    End If
End Sub

宏2（test6：合并Document B内容到Document A） #

Sub test6()
    Application.ScreenUpdating = False
    Dim docA As Document, docB As Document
    Dim strFile As String
    
    strFile = "C:\Users\test\Desktop\tar sheet test\documenta.docx"
    ' 绑定Document A到对象，增加路径异常判断
    If Dir(strFile) <> "" Then
        Set docA = Documents.Open(strFile)
    Else
        MsgBox "未找到Document A，请检查文件路径是否正确", vbCritical
        Exit Sub
    End If
    
    ' 调用宏打开Document B，绑定最新打开的文档为docB
    Call test
    Set docB = Documents(Documents.Count)
    
    ' 直接通过对象操作内容，无需激活窗口、移动光标
    docB.Content.Copy
    docA.Content.InsertParagraphAfter
    docA.Range(docA.Content.End - 1).PasteAndFormat wdPasteDefault
    
    ' 可选配置：操作完成自动关闭Document B且不保存
    docB.Close SaveChanges:=wdDoNotSaveChanges
    Application.ScreenUpdating = True
    MsgBox "内容合并完成", vbInformation
End Sub

• 移除跨Word进程操作，所有文档都在当前运行宏的Word实例中打开，从根源解决跨进程访问失效问题
• 使用文档对象直接操作内容，完全避免依赖窗口焦点的不稳定操作，执行成功率更高
• 增加异常提示逻辑，文件路径错误时直接终止运行并提示，避免无意义的空执行
• 可选自动关闭导入用的Document B，减少手动操作步骤

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