【vba-2】vba操作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