批量格式化Word表格

这个操作是有目的的，当我们从pdf或者其他途径导出大量表格的word文档时

文档的表格会出现很不规则的情况，为后面的编辑带来非常的不便

因此通过一个代码将所有的表格格式化为一套标准更便于编辑

Sub Format_Table()
Dim i As Table, N As Integer
'On Error Resume Next '忽略错误
Application.ScreenUpdating = False '关闭屏幕更新

For Each i In ActiveDocument.Tables '在表格中循环

    With i
    .AutoFitBehavior (wdAutoFitWindow) '根据窗口调整表格
    
    '表格自动宽度
    .Columns.PreferredWidthType = wdPreferredWidthAuto
    .Columns.PreferredWidth = 0
    
    '表格自动高度
    .Rows.HeightRule = wdRowHeightAuto
    .Rows.Height = CentimetersToPoints(0)
    
    i.Select '选择表格
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter '纵向居中
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '横向居中
        
    End With

Next i

Application.ScreenUpdating = True '开启屏幕更新
End Sub