怎么用vba设置所有表格的格式？

怎么用vba设置所有表格的格式？
表头：加粗，宋体、新罗马，五号字体，居中对齐，无缩进，底色为灰色。
表格正文：不加粗，宋体、新罗马，五号字体，居中对齐，无缩进，无底色。

有个大问题，如果代码写表头为第一行，如果表格中有纵向合并单元格就会识别不出第一行。

该回答引用GPTᴼᴾᴱᴺᴬᴵ
你可以使用 VBA 循环遍历所有表格，然后根据表格的行数和列数来设置表格的格式。以下是一个示例代码：

Sub SetTableFormat()
    Dim tbl As Table
    Dim row As Row
    Dim cell As Cell
    For Each tbl In ActiveDocument.Tables
        '设置表头格式
        Set row = tbl.Rows(1)
        For Each cell In row.Cells
            cell.Range.Font.Name = "宋体"
            cell.Range.Font.Size = 5
            cell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            cell.Range.ParagraphFormat.LeftIndent = 0
            cell.Range.Shading.BackgroundPatternColor = wdColorGray25
            If cell.ColumnIndex = 1 Then
                cell.Range.Font.Name = "新罗马"
                cell.Range.Font.Bold = True
            End If
        Next cell
        '设置表格正文格式
        For Each row In tbl.Rows
            If row.Index > 1 Then
                For Each cell In row.Cells
                    cell.Range.Font.Name = "宋体"
                    cell.Range.Font.Size = 5
                    cell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
                    cell.Range.ParagraphFormat.LeftIndent = 0
                    cell.Range.Shading.BackgroundPatternColor = wdColorWhite
                    cell.Range.Font.Bold = False
                Next cell
            End If
        Next row
    Next tbl
End Sub

这段代码首先使用 For Each tbl In ActiveDocument.Tables 循环遍历当前文档中的所有表格，然后针对每个表格，使用 Set row = tbl.Rows(1) 定义第一行为表头，再使用 For Each cell In row.Cells 循环遍历第一行中的每个单元格，设置单元格的格式。接着使用 For Each row In tbl.Rows 循环遍历表格的每一行（包括第一行），再使用 For Each cell In row.Cells 循环遍历每一行中的每个单元格，设置单元格的格式。

如果你需要处理表格中有纵向合并单元格的情况，可以使用 If cell.ColumnIndex = 1 判断当前单元格是否为该行的第一列，然后设置该单元格的格式为表头格式。