居中,需要每一列设置。
Dim t As Table = Tables("表A")
For Each c As Col In t.Cols c.TextAlign = TextAlignEnum.CenterNext