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

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

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

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

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

Sub 宏1()
    Dim h
    Dim i
    Dim n
    On Error Resume Next '忽略错误
    WidthP = 80 '设定的固定行高
    For n = 5 To ActiveDocument.Tables.Count
        For i = 4 To ActiveDocument.Tables(n).Rows.Count
           ActiveDocument.Tables(n).Rows(i).Height = WidthP '设置行号
        Next
    Next
End Sub

我在网上找关于行高的设置发现资料比较少，最后我找到了官方帮助，还是官方帮助给力，附上链接。
官方帮助