在word2016中使用宏（VBA）来自动设置表格行高

因为有校验文档的工作，其中有一个大几百页的文档，有三四百张表格，要求是调整他们的行高，保持美观的同时尽可能减少页数。手动来改实在是鼠标都点烂了，所以就想到了宏的方法。
使用宏的使用方法我是这样操作的：
（1）启用宏
文件–>选项–>信任中心–>信任中心设置–>启用所有宏

（2）在搜索栏中搜索“宏”，选择“查看宏”，选择编辑

（3）进入宏的代码编辑部分

接下来就是代码编辑了。我的要求是：从第五个表格开始，每个表格从第四行开给一个固定的行距。

Sub 宏1()
    Dim h
    Dim i