Word VBA如何在目标文档表格选中行上方插入源文档表格行

解决方案 #

你之前ELSE分支的核心问题是没有正确绑定当前选中行的范围，错误引用了整个文档的内容作为操作对象。以下是修正后的完整代码：

Dim docTarget As Document
Dim docSource As Document
Set docTarget = ActiveDocument
Set docSource = Documents.Open(strFileName)

If SOMETHING Then
    '1) 原有可正常运行的代码
    Dim myRange As Object
    Set myRange = docTarget.Content
    myRange.Collapse Direction:=wdCollapseEnd
    myRange.FormattedText = docSource.Tables(2).Range.FormattedText
Else
    '2) 修正后的插入到选中行上方的代码
    ' 先判断当前选中内容是否在表格内，避免异常
    If Not Selection.Information(wdWithinTable) Then
        MsgBox "请先选中目标表格中的行", vbExclamation
        docSource.Close SaveChanges:=wdDoNotSaveChanges
        Set docSource = Nothing
        Set docTarget = Nothing
        Exit Sub
    End If
    
    Dim sourceTable As Table
    Set sourceTable = docSource.Tables(2)
    Dim insertRowCount As Long
    insertRowCount = sourceTable.Rows.Count
    
    ' 在当前选中行的上方插入对应数量的空白行
    Selection.Rows(1).InsertRowsAbove insertRowCount
    
    ' 将插入的第一行作为目标范围，写入源表格的带格式内容
    Dim targetInsertRange As Range
    Set targetInsertRange = Selection.Rows(1).Range
    ' 范围收缩到起始位置，避免覆盖原有选中行
    targetInsertRange.Collapse wdCollapseStart
    targetInsertRange.FormattedText = sourceTable.Range.FormattedText
End If

docSource.Close SaveChanges:=wdDoNotSaveChanges
Set docSource = Nothing
Set docTarget = Nothing

核心修改说明 #

• 新增了选中区域合法性判断，避免用户没选中表格行时程序报错
• 直接通过Selection.Rows(1)获取当前选中的行对象，调用InsertRowsAbove方法时传入源表格的行数，可一次性插入匹配数量的空白行，无需循环操作
• 插入完成后直接定位到新增行的起始位置赋值带格式文本，不会影响原有选中行的内容
• 补充了明确的资源回收逻辑，即使提前退出也不会残留未关闭的文档对象

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