如何在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

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

• font：＆＃34; Times New Roman＆＃34;，12号。
• 垂直对齐：中间

...以及以下第一行：

• 粗体

我想我可以添加类似的内容：

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

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

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

Answer 1

您可以访问.Font的{​​{1}}来设置所需的不同设置：

.Condition(wdFirstRow)

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