word 表格居中

Sub SetTableCenter()
    Dim doc As Document, myTable As table
    Set doc = ActiveDocument
    If doc.Tables.Count = 0 Then Exit Sub
    For Each myTable In doc.Tables
            myTable.Range.Rows.Alignment = wdAlignRowCenter
    Next
End Sub