如何在 Word VBA 样式中设置表格 VAlign 和第一行粗体？

Question

我有一个基本的TableStyle 布局如下：

Sub NewTableStyle()
 Dim StyTbl As Style

 Set StyTbl = ActiveDocument.Styles.Add(Name:="PhaseTable", Type:=wdStyleTypeTable)

 With StyTbl.Table
    .Alignment = wdAlignRowLeft

    With .Condition(wdFirstRow)
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .Visible = True
            .LineWidth = wdLineWidth150pt
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .Visible = True
            .LineWidth = wdLineWidth150pt
        End With
    End With

 End With
End Sub

但我想扩展它，将以下内容应用于所有单元格：

• 字体：“Times New Roman”，12 号。
• 垂直对齐：中间

...仅第一行以下内容：

• 粗体

我想我可以添加如下内容：

 With StyTbl.Font
    .Size = 12
    .Name = "Times New Roman"
 End With

在我的子程序结束时将以下属性应用于整个表。但是，我似乎无法弄清楚选择性的第一行粗体或垂直对齐方式。

我知道这可能是可能的，因为我可以修改 Excel 默认样式以在 GUI 中包含这些选项。如何在我计划应用于表格的 VBA Style 中设置这些选项？

Answer 1

您可以访问.Condition(wdFirstRow) 的.Font 来设置您需要的不同设置：

Sub NewTableStyle()
    Dim StyTbl As Style

    Set StyTbl = ActiveDocument.Styles.Add(Name:="PhaseTable", Type:=wdStyleTypeTable)

    With StyTbl.Table
        .Alignment = wdAlignRowLeft

        With .Condition(wdFirstRow)
            With .Borders(wdBorderBottom)
                .LineStyle = wdLineStyleSingle
                .Visible = True
                .LineWidth = wdLineWidth150pt
            End With
            With .Borders(wdBorderTop)
                .LineStyle = wdLineStyleSingle
                .Visible = True
                .LineWidth = wdLineWidth150pt
            End With
            With .Font
                .Bold = False
                .Size = 12
                .Name = "Times New Roman"
            End With

        End With
    End With
End Sub

但似乎没有 vba 访问垂直对齐。