在目标文档内运行Word VBA宏复制内容到表格报错5941如何解决

核心报错原因 #

报错5941本质是你访问的集合对象（表格集合/单元格集合）中不存在指定索引的成员，这段代码的核心问题出在以下两点：

• 打开doc1的操作会将新打开的doc1变为活动文档，后续ActiveDocument实际指向的是doc1而非代码所在的doc2，自然找不到目标表格
• 没有做前置校验，无法确认doc2中确实存在第一个表格、且该表格的单元格总数≥18

修复后的代码 #

Sub copyContents()
    Dim doc1 As Word.Document
    ' 直接使用当前Word实例，无需额外调用适配接口
    Set doc1 = Application.Documents.Open("C:\Temp\SingleDoc.docx")
    
    Dim source As Word.Range
    Set source = doc1.Content
    
    ' 用ThisDocument明确指向宏所在的doc2，不受活动文档切换影响
    With ThisDocument
        ' 前置校验是否存在第一个表格
        If .Tables.Count = 0 Then
            MsgBox "当前文档不存在表格，请检查", vbCritical
            GoTo Cleanup
        End If
        ' 前置校验第一个表格是否有至少18个单元格
        If .Tables(1).Range.Cells.Count < 18 Then
            MsgBox "第一个表格单元格总数不足18，请检查索引", vbCritical
            GoTo Cleanup
        End If
        ' 先清空目标单元格原有内容再赋值，避免格式冲突
        .Tables(1).Cell(18).Range.Delete
        .Tables(1).Cell(18).Range.FormattedText = source.FormattedText
    End With
    
Cleanup:
    doc1.Close SaveChanges:=False
    Set doc1 = Nothing
End Sub

补充说明 #

• 如果你的表格存在合并单元格结构，索引计数会跳过合并的单元格，建议用行+列的方式定位单元格，语法为.Tables(1).Cell(行号, 列号)，定位更精准不会出错
• 赋值带格式内容时，指定source.FormattedText比直接写source兼容性更好，图片、特殊样式都能正常复制

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