word 表格内容居中

Sub 水平垂直居中()
Dim t As Table
For Each t In Me.Tables
t.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Next
End Sub