批量设置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，以上功能只是冰山一角。送大家一句：只有想不到，没有做不到。
————————————————
版权声明：本文为CSDN博主「王海涛」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/dreamcatchergo/article/details/8580494