看起来你在搭建带嵌套表格的Word邮件合并文档时，遇到了两个核心问题：一是VBA创建嵌套表格的逻辑有偏差，二是邮件合并时不知道怎么精准跳转填充单元格。我来给你一步步梳理解决方案：

一、先修正你的VBA代码，正确生成嵌套表格 #

你的现有代码里有几个明显的小问题：比如变量objRow1和objRow2混用导致内容被覆盖，而且嵌套表格没有插入到父表格的单元格里，而是直接加到了文档末尾，根本没形成嵌套结构。先改这段代码来生成你要的预期结构：

Sub CreateNestedTable()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objTblMain As Object ' 外层主表格
    Dim objTargetCell As Object ' 用来放置嵌套表格的主表格单元格
    Dim objTblNested As Object ' 内层嵌套表格
    
    ' 启动Word并新建文档
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add(DocumentType:=0)
    objDoc.PageSetup.PageWidth = objWord.CentimetersToPoints(14.8) ' 修正重复设置页面宽度的问题
    
    ' 创建4行2列的主表格（对应你给出的预期结构）
    Set objTblMain = objDoc.Tables.Add(Range:=objDoc.Paragraphs(1).Range, NumRows:=4, NumColumns:=2)
    
    ' 填充主表格第一行第一列
    objTblMain.Cell(1, 1).Range.Text = "Cell1中的文本"
    
    ' 在主表格第二行第一列插入嵌套表格（核心：嵌套表格要放在父单元格的范围内）
    Set objTargetCell = objTblMain.Cell(2, 1)
    Set objTblNested = objDoc.Tables.Add(Range:=objTargetCell.Range, NumRows:=2, NumColumns:=1)
    objTblNested.Cell(2, 1).Range.Text = "新表格文本（Text newtbl）"
    
    ' 填充主表格第三行第二列
    objTblMain.Cell(3, 2).Range.Text = "再次显示文本（Text again）"
    
    ' 可选：调整表格边框样式，让结构更清晰
    objTblMain.Borders.Enable = True
    objTblNested.Borders.Enable = True
End Sub

这段代码的核心逻辑是：嵌套表格必须插入到父表格的指定单元格范围内，而不是直接追加到文档里，这样才能形成你要的嵌套层级。

二、邮件合并的单元格跳转填充思路 #

要让Excel数据精准填充到嵌套表格的单元格里，关键是给每个需要填充的位置设置邮件合并域，步骤如下：

1. 先建好嵌套表格模板：用上面的VBA生成结构后，保存为Word模板（.dotx格式），或者手动在Word里搭建好你要的嵌套表格结构。
2. 插入合并域到目标单元格：
   • 打开Word的「邮件」选项卡，点击「选择收件人」连接你的Excel数据源；
   • 把光标精准定位到需要填充的单元格内（比如嵌套表格的某个单元格），点击「插入合并域」选择对应的Excel字段；
   • 注意：不要把域插入到单元格末尾的隐藏段落标记后面，否则填充时会错位。
3. 处理嵌套表格的重复填充（如果需要）：
   • 如果嵌套表格需要根据Excel的多行子数据重复生成，纯手动邮件合并可能不够灵活，建议用VBA结合邮件合并API：遍历Excel的每一行数据，逐个生成带嵌套表格的Word文档，或者用Word的「规则」->「跳过记录条件」来控制合并逻辑。

三、关键注意事项 #

• 合并域定位要精准：每个合并域必须放在对应的单元格内部，避免放在表格的段落标记或边框区域；
• 嵌套表格的范围锁定：用VBA操作嵌套表格时，一定要通过父表格的Cell对象来定位插入范围，防止表格结构混乱；
• 复杂结构用VBA辅助合并：如果是多层嵌套的复杂表格，手动邮件合并容易出错，建议用VBA遍历Excel数据，逐个填充到Word的对应单元格中，灵活性更高。

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