Word VBA复制表格异常：仅粘贴内容未粘贴表格结构求助

你的问题根源在于使用FormattedText进行替换操作——它仅能将表格内容以格式化文本形式粘贴，无法保留表格的对象结构。要实现将目标文本替换为表格本身，需要先定位文本位置，再插入表格副本，具体修改如下：

修改后的代码 #

Sub Duplicate_Table()
    Dim doc As Word.Document
    Dim tbl As Word.Table
    Dim findRange As Range
    Dim found As Boolean
    
    Set doc = ActiveDocument
    ' 获取文档中的第一个表格
    Set tbl = doc.Tables(1)
    
    Set findRange = doc.Content
    With findRange.Find
        .ClearFormatting
        .Text = "Find text"
        .Wrap = wdFindStop ' 避免循环查找同一位置
        found = .Execute
    End With
    
    ' 循环处理所有匹配的文本位置
    Do While found
        ' 删除找到的目标文本
        findRange.Delete
        ' 在当前位置粘贴表格副本，保留原始格式
        tbl.Range.Copy
        findRange.PasteAndFormat (wdFormatOriginalFormatting)
        ' 将查找范围移至插入的表格后方，避免重复处理
        Set findRange = findRange.Next
        ' 继续查找下一个匹配项
        found = findRange.Find.Execute
    Loop
End Sub

关键调整说明 #

• 放弃Replace替换逻辑，改为手动定位每个匹配位置，直接操作表格对象
• 使用PasteAndFormat (wdFormatOriginalFormatting)确保粘贴的是完整表格，而非仅内容
• 调整查找范围到插入表格之后，防止无限循环查找同一区域

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