如何把两个不同得VBA程序放到一起？求教

郭宏伟66

如图、是通过论坛老师整理的两个完美的VBA表达语言，一个是整篇WORD得所有表格内部格式调整、一个是表格居中（是表格居中、不是内部文字居中）的VBA ，现在的问题是如何把这两个放到一起呢 另外可否加个表达语句
1、让所有的表格宽度统一为101%
2、所有表格的表头部分的内容居中对齐（表头可能有合并单元格、也可能没有合并单元格)
是所有的表格 不是单个得表格 每个表格的形式 样式是不一样的
十分感谢 现在的两段代码文字部分如下
一、所有表格内部格式调整得VBA
   Sub 表格处理()
     On Error Resume Next
     Dim t As Table, n As Long
     If Selection.Information(wdWithInTable) = True Then Selection.Tables(1).Select: n = 1
     For Each t In ActiveDocument.Tables
         If n = 1 Then Set t = Selection.Tables(1) Else t.Select
         With t
             With .Rows
                 .WrapAroundText = False
                 .Height = CentimetersToPoints(0.7)
             End With
              Selection.Tables(1).Select
             .TopPadding = CentimetersToPoints(0)
              .BottomPadding = CentimetersToPoints(0)
              .LeftPadding = CentimetersToPoints(0)
              .RightPadding = CentimetersToPoints(0)
             With .Rows(1).Range.Font
                 .Name = "黑体"
                 .Name = "Arial Narrow"
                 .Bold = True
                 .Size = "五号"
             End With
         End With
         If n = 1 Then Exit For
     Next
End Sub
二、所有表格居中对齐的VBA
Sub 表格居中对齐()
    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

郭宏伟66

图片忘记发了、本楼层补上去