关于word表格批量设置高度问题

E513896

ABCDE   FG

ABC

EFGH

ABCDE   FGHILJ   KNN

ACDE   FG

ABCDE   FGHILJ   KNNO

XYZ

如上一个WORD表格，表格中有一行文字的、二行文字的，三行文字的等等，，在线求助如何批量设置的不同高度，比如一行文字高度统一设为0.8，二行文字高度统一设为1.2，三行文字统一设置为1.8等。

ming0018

遍历每一行，再根据行数，设置每行的高度
自己录制宏就可以实现了

daibao88

ActiveDocument.Tables(1).Rows(1).Height = Application.CentimetersToPoints(0.8)

413191246se

* 明老师 好！ 戴老师 好！ 楼主，只须选定整个表格，右键属性，最小值 0 cm（取消网格则更好）。

E513896

daibao88 发表于 2019-8-12 21:03
ActiveDocument.Tables(1).Rows(1).Height = Application.CentimetersToPoints(0.8)

这位老师，不好意思，我是菜鸟，能再写详细一点吗？谢谢！

daibao88

Sub test()
    With ActiveDocument.Tables(1)
        .Rows.HeightRule = wdRowHeightExactly
        .Rows(1).Height = Application.CentimetersToPoints(0.8)
        .Rows(2).Height = Application.CentimetersToPoints(1.2)
        .Rows(3).Height = Application.CentimetersToPoints(1.8)
    End With
End Sub
设定的表格行高，不是文字高度

E513896

daibao88 发表于 2019-8-13 21:09
Sub test()
    With ActiveDocument.Tables(1)
        .Rows.HeightRule = wdRowHeightExactly

这个不是我想要的效果，他是结果是表格的第一行高0.8，第二行高1.2，第三行高1.8。我需要的是先判断表格中某一行中有几行文字，然后设置不同的行高。

daibao88

选定整个表格，右键属性，最小值 0 cm，再设置段落 ，行距为 多少磅就行了。

daibao88

413191246se 理解能力好强啊！一语中的

413191246se

戴老师 过奖了！ 我过去经常折腾表格，有感而发。我得向您多多学习！