批量设置word中表格的高度

最近写文档的时候，遇到了一个小问题。我们的文档，大部分都是通过EA生成的，而通过EA生成的文档，好多表格格式不是很美观。不是表格的高度不合适，就是字体显示不尽人意，这些都必须去修改。当浏览了一遍文档后，发现有好几十个表格，这要是一一修改的话，那一上午就甭干别的了，光做重复工作了。记得有这么一句话：如果同一件事情，你重复做了三次，那么，肯定有简单的方法来避免这种无谓的重复。于是上网找了一下，果然，VBA完美解决了这个问题。下面就说说如何用VBA解决这个问题。

1、打开Word，点击视图——宏——查看宏

2、输入宏名，点击创建

3、输入如下代码

Sub test()

    Dim i As Table, N As Integer

    On Error Resume Next    '忽略错误

    Application.ScreenUpdating = False    '关闭屏幕更新

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

        With i

            For N = 1 To .Columns.Count    '从第一列到最后一列

                .Rows(N).Height = 111

                .Columns(N).Select    '单元格对齐方式为中部居中

               Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

               Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter

            Next N

        End With

    Next i

    Application.ScreenUpdating = True

End Sub

4、最后点击运行，你会发现文档中所有表格瞬间变成了你想要的效果。完成此项“浩大”的工程就是如此简单。

 

当然，对于VBA，以上功能只是冰山一角。送大家一句：只有想不到，没有做不到。