如何用VBA实现Word光标所在表格行剪切至另一表格末尾并匹配格式？

修正后的代码 #

Sub MoveApprovedRow()
    Dim sourceTable As Table
    Dim targetTable As Table
    Dim sourceRow As Row
    Dim targetRow As Row
    
    ' 检查文档中是否存在两个表格
    If ActiveDocument.Tables.Count < 2 Then
        MsgBox "文档中至少需要两个表格！", vbExclamation
        Exit Sub
    End If
    
    Set sourceTable = ActiveDocument.Tables(1)
    Set targetTable = ActiveDocument.Tables(2)
    
    ' 检查光标是否在源表格内
    On Error Resume Next
    Set sourceRow = Selection.Cells(1).Row
    On Error GoTo 0
    
    If sourceRow Is Nothing Or sourceRow.Table Is Not sourceTable Then
        MsgBox "请将光标放在第一个表格的任意单元格内！", vbExclamation
        Exit Sub
    End If
    
    ' 剪切源行
    sourceRow.Cut
    
    ' 在目标表格末尾添加新行
    Set targetRow = targetTable.Rows.Add
    
    ' 粘贴内容并匹配目标表格格式
    targetRow.Range.PasteAndFormat wdFormatOriginalFormatting
    
    ' 清除剪贴板内容（可选，避免误粘贴）
    Application.CutCopyMode = False
End Sub

关键改进点 #

• 减少Selection依赖：直接通过Selection.Cells(1).Row获取光标所在行，避免Selection操作带来的不稳定问题
• 增加错误校验：添加表格数量检查、光标位置检查，防止宏因操作环境不符合要求崩溃
• 格式自动匹配：使用PasteAndFormat wdFormatOriginalFormatting，让粘贴后的行自动适配目标表格格式
• 对象化操作：用变量绑定表格和行对象，比直接操作Selection更可靠

绑定到自定义工具栏按钮的步骤 #

• 打开Word选项 → 自定义功能区 → 点击「新建选项卡」或选择现有选项卡，点击「新建组」
• 在「从下列位置选择命令」中选择「宏」，找到MoveApprovedRow宏，添加到新建组中
• 右键点击添加的按钮，可修改显示名称（比如“批准并移动行”）和图标，完成后点击确定即可

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