word 文档中表格批量居中 宏命令

Sub 表格批量居中()
'
' 表格批量居中 宏
'
'
For i = 1 To ActiveDocument.Tables.CountActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenterNext i
End SubSub 表格自动对齐窗口()
'
' 表格自动对齐窗口 宏
'Dim tempTable As TableApplication.ScreenUpdating = FalseFor Each oTable In ActiveDocument.TablesoTable.AutoFitBehavior (wdAutoFitWindow)NextMsgBox "完成！！"Application.ScreenUpdating = True
End Sub