如何修改Word表格中除前两行外新增行的字体格式

问题说明 #

我编写了一段VBA宏，用于将Excel数据导入Word文档的表格中。由于是工作用文档，需满足特定设计规范，要求仅修改新增行的字号与字体位置，表格中原有的前两行格式必须保持不变。首次使用VBA，尝试的代码未能实现需求，特此寻求修正方案。

效果对比 #

• Excel数据源：包含待导入的结构化表格数据
• 当前代码运行效果：前两行格式被错误修改，不符合规范
• 预期效果：仅新增行应用指定字体格式（Roboto (Body)、字号10、字体位置-18），前两行原有格式完全保留

错误代码分析 #

之前的代码选中了表格第2个表格的第1-4行第3列范围，会覆盖前两行的格式，不符合需求：

With CurrentDoc
  Dim myCells As Range
  Set myCells = .Range(Start:=.Tables(2).Cell(1, 3).Range.Start, End:=.Tables(2).Cell(4,3).Range.End)
  myCells.Select
        
  With Selection.Cells
    .Font.Size = 10
    .Font.Name = "Roboto (Body)"
    .Font.Position = -18
  End With
End With

修正后的代码方案 #

直接定位到表格中第3行及以后的所有行，无需使用Selection（VBA中应尽量避免选择操作，效率更高且不易出错）：

With CurrentDoc.Tables(2) ' 操作目标表格（此处为第2个表格）
    Dim rowIndex As Integer
    ' 从第3行开始遍历到表格最后一行
    For rowIndex = 3 To .Rows.Count
        With .Rows(rowIndex).Range.Font
            .Size = 10
            .Name = "Roboto (Body)"
            .Position = -18 ' 字体上移18磅
        End With
    Next rowIndex
End With

代码说明 #

1. 直接定位目标表格，避免全局范围的无效选择
2. 循环起始行设为3，确保前两行格式不受任何影响
3. 针对每行的字体属性直接设置，精准控制格式范围
4. 移除Selection依赖，代码运行更稳定高效

如果仅需修改新增行的特定列（比如第3列），可调整为如下代码：

With CurrentDoc.Tables(2)
    Dim rowIndex As Integer
    For rowIndex = 3 To .Rows.Count
        With .Cell(rowIndex, 3).Range.Font
            .Size = 10
            .Name = "Roboto (Body)"
            .Position = -18
        End With
    Next rowIndex
End With

内容的提问来源于stack exchange，提问作者Franz Müller