再次请教关于 Wrod 表格 行高的问题

marchwen01

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 获得表格的实际行高，不是设定的值。

原来用  .tables.count  = . pages.count   的方法检测，这是一个靠不住的手段。再次请教，谢谢大家。

batmanbbs

需要看你的表格的复杂程度，如果是规范表格（没有合并单元格），只要获取当前行所有单元格的字号、行距和行数。如果没有超过最小值，则当前实际单元格高度最是最小值；否则，就是这一行最多行数的单元格的行高（(字体高度+行距)*行数）。

yjm36

楼主的问题解决了吗？我得表格比较复杂，想通过 点击一次，所有行高增加1磅，不知能不能实现。