【vba

--表格整体居中
Sub SetTableCenter()Dim doc As Document, myTable as TableSet doc = ActiveDocumentIf doc.Tables.Count = 0 Then Exit SubFor Each myTable In doc.TablesmyTable.Range.Rows.Alignment = wdAlignRowCenterNext
End Sub