如何通过Word VBA为表格表头与表体分别应用内置表格样式？

这个问题问得好！遗憾的是，你没法直接把Word内置表格样式只应用到表头或表体行——这类内置样式是作为完整的表格格式方案设计的，一旦应用就会覆盖整个表格的格式，没法拆分单独作用于某一部分。

不过有个实用的变通方法：你可以提取内置表格样式里的特定格式属性（比如表头的底纹、字体、边框），再通过VBA把这些属性单独应用到目标行上。这样既能复用内置样式的预设精美格式，又不用从零开始写一堆自定义格式代码。

给你举个VBA示例：假设你想把内置样式wdStyleTableLight1的表头格式用在表格第一行，同时把wdStyleTableMedium2的表体格式用在其他行：

Sub 拆分应用内置表格样式()
    Dim 目标表格 As Table
    Dim 表头样式 As TableStyle
    Dim 表体样式 As TableStyle
    
    ' 获取当前文档的第一个表格（可根据需要调整）
    Set 目标表格 = ActiveDocument.Tables(1)
    
    ' 引用你想使用的内置样式
    Set 表头样式 = ActiveDocument.Styles(wdStyleTableLight1)
    Set 表体样式 = ActiveDocument.Styles(wdStyleTableMedium2)
    
    ' 把表头样式的格式应用到第一行
    With 目标表格.Rows(1)
        ' 复制内置样式的字体设置
        .Range.Font = 表头样式.Table.Font
        ' 复制底纹（背景色）设置
        .Shading = 表头样式.Table.Shading
        ' 复制边框设置
        .Borders = 表头样式.Table.Borders
        ' 复制段落对齐方式（比如居中）
        .Range.ParagraphFormat.Alignment = 表头样式.Table.ParagraphFormat.Alignment
    End With
    
    ' 把表体样式的格式应用到剩余所有行
    Dim 行索引 As Integer
    For 行索引 = 2 To 目标表格.Rows.Count
        With 目标表格.Rows(行索引)
            .Range.Font = 表体样式.Table.Font
            .Shading = 表体样式.Table.Shading
            .Borders = 表体样式.Table.Borders
            .Range.ParagraphFormat.Alignment = 表体样式.Table.ParagraphFormat.Alignment
        End With
    Next 行索引
End Sub

这种方法相当于“拆解”了内置样式，只取用你需要的部分格式组件应用到对应行。虽然不是直接应用样式，但完美达成了你想用内置样式预设、又要拆分表头表体格式的需求。

补充一句：如果你只是想让表头用某一个内置样式的表头格式，表体用同一样式的表体格式，那直接给整个表格应用该样式就行——Word的内置表格样式本身就会区分表头和表体的格式（比如很多样式会给表头加底纹）。但如果是想混用不同内置样式的表头和表体，那上面的代码就是最优解了。

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