如何用VBA复制Word中含指定表格的整节并粘贴至新增节

运行时错误4198（命令失败）的核心原因有三点：

• 新增节的索引逻辑存在漏洞：当源节是文档最后一节时，lNdxSource + 1会超出Sections集合的索引范围，导致新增节的位置无效。
• 遍历查找源节的方式有隐患：遍历所有节判断Range归属，在复杂文档中可能出现匹配错误，且效率偏低。
• 依赖剪贴板的粘贴操作不稳定：第二次调用时剪贴板内容可能未正确更新，或Word对象模型的Range引用失效。

修正后的代码 #

Function CopySection(wdSourceTable As Word.Table) As Word.Section
    Dim wdSourceSection As Word.Section
    Dim wdNewSection As Word.Section
    Dim wdSourceRange As Word.Range
    
    ' 直接获取表格所在的节，无需遍历
    Set wdSourceSection = wdSourceTable.Range.Sections(1)
    
    ' 在源节末尾插入新节，避免索引越界问题
    Set wdNewSection = wdSourceSection.Document.Sections.Add(wdSourceSection.Range.End)
    
    ' 复制源节的内容（排除末尾的分节符），直接复制到新节，无需依赖剪贴板
    Set wdSourceRange = wdSourceSection.Range
    wdSourceRange.End = wdSourceRange.End - 1 ' 移除分节符
    wdSourceRange.Copy wdNewSection.Range
    
    Set CopySection = wdNewSection
End Function

关键修改说明 #

1. 直接定位源节：利用Range.Sections(1)直接获取表格所在的节，替代遍历逻辑，避免匹配错误，提升执行效率。
2. 安全插入新节：通过wdSourceSection.Range.End指定新节的插入位置，无论源节是中间节还是最后一节，都能准确插入到源节之后。
3. 摆脱剪贴板依赖：使用Range.Copy方法直接将源节内容复制到新节的Range中，无需调用Copy和Paste，彻底解决剪贴板导致的不稳定问题。
4. 清理多余分节符：将源节Range的End减1，排除末尾的分节符，避免新节中出现重复的分节符，保证文档结构整洁。

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