请教一个关于 Wrod 表格 行高的问题

word 表格的行高有三种属性：
1、 .HeightRule = wdRowHeightAuto（自动行高，会根据单元格内容的多少自动调整。）
在这种属性下：Num = .Height 不管实际行高怎么变化 Num 的值都是 9999999，没错就是7个9。从这个属性转换为其他属性，在再次给 .Height 赋值之前，不管实际看到的行有多高，行高就是一行字符的高度，12像素左右。
2、.HeightRule = wdRowHeightExactly （固定行高，不管内容多少，行高固定。）
在这种属性下：Num = .Height Num 就是设定好的值。很固定。
3、.HeightRule = wdRowHeightAtLeast （最小值行高，内容不多，设定的行高足以容纳单元格的内容时，行保持设定值，当内容超过单元格的容纳，行高会自动增加。）
在这种属性下：Num = .Height Num 的值，永远是设定值。
现在有给个需求，要在 word 表格写入内容，内容的多少不太固定，最多时会超出单元格的容纳范围，但把字体缩小一两个规格，就可以了。现在我想，有没有一种方法可以获得单元格的实际行高，因为行高的设置属性是最小值（.HeightRule = wdRowHeightAtLeast），给单元格写入内容后，当行高大于设定值时，把字体所小，以保持表格的整齐。
请教：Word VBA 获得表格的实际行高，不是设定的值。