如何用VBA为Word选中表格的首行和首列设置不同字体样式

要实现选中表格的首行、首列和剩余文本分别应用不同字体样式，你需要替换原代码中Selection.Style = ActiveDocument.Styles("Table Cell Center")这一行，改为分步骤单独设置各区域的样式。核心思路是：先给整个表格设置基础样式（剩余文本的样式），再覆盖首行样式，最后覆盖首列（排除首行单元格）的样式，避免样式冲突。

修改后的完整宏代码 #

Sub TableFormatRecording()
'
' Original TableFormat Macro Recording
'
    With Selection.Tables(1)
        .TopPadding = InchesToPoints(0)
        .BottomPadding = InchesToPoints(0)
        .LeftPadding = InchesToPoints(0.08)
        .RightPadding = InchesToPoints(0.08)
        .Spacing = 0
        .AllowPageBreaks = False
        .AllowAutoFit = False
    End With
    With Selection.Tables(1)
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -587137025
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -587137025
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -587137025
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -587137025
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -587137025
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -587137025
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = -587137025
    End With
    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPercent
    Selection.Tables(1).PreferredWidth = 100
    Selection.Tables(1).Rows.AllowBreakAcrossPages = False
    Selection.Tables(1).Rows.HeadingFormat = True
    Selection.Tables(1).Style = "G Table Style"
    
    ' ---------- 新增字体样式设置部分 ----------
    Dim i As Integer
    ' 1. 设置表格剩余文本的字体样式（基础样式）
    Selection.Tables(1).Range.Style = ActiveDocument.Styles("Table Cell Center")
    
    ' 2. 设置首行的字体样式
    Selection.Tables(1).Rows(1).Range.Style = ActiveDocument.Styles("首行字体样式")
    
    ' 3. 设置首列（排除首行单元格）的字体样式
    With Selection.Tables(1).Columns(1)
        For i = 2 To .Cells.Count
            .Cells(i).Range.Style = ActiveDocument.Styles("首列字体样式")
        Next i
    End With
    ' ----------------------------------------
End Sub

关键说明 #

1. 样式替换：将代码中的"首行字体样式"和"首列字体样式"替换为你文档中实际存在的字体样式名称。
2. 优先级处理：先设置整个表格的基础样式，再覆盖首行和首列的样式，确保首行首列的单元格最终应用首行样式（不会被首列样式覆盖）。
3. 选中表格验证：宏仅对当前选中的表格生效，符合你不想批量格式化所有表格的需求。

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