word表格批量选中指定行并修改行高

my80

求教论坛各位老师，每个word文件都有多个表格，如何批量选中所有表格指定行列如最后3行

实例表格第1行是固定行高，第2至第4行相同的行高。

jiangxiaoyun

for each t in activedocument.tables
r=t.rows.count
r1=r-1
r2=r-2
t.rows(r).height=10
t.rows(r1).height=30
t.rows(r2).height=30
next

vbee

按住CTRL再选择

蜀中草莽

也不知道是不是每个表格 都只有四行 ，
遍历一下每个表格  可以根据自己需要 改一下




Sub test()
    Dim 文档 As Document, 表 As Table, 行 As Long
    Set 文档 = ActiveDocument
    For Each 表 In 文档.Tables    '遍历文档所有表格
        '        表.Rows(2).Height = CentimetersToPoints(2)  '第二行行高设置为2cm
        '        表.Rows(3).Height = CentimetersToPoints(3)  '第二行行高设置为3cm
        For 行 = 表.Rows.Count To 表.Rows.Count - 2 Step -1   '遍历倒数3行
            表.Rows(行).Height = CentimetersToPoints(2)   '行高设置为2cm
        Next
    Next
End Sub

batmanbbs

注意：表格中不能有跨行的合并单元格，同时确保每个表格相同
PS：其实我不建议使用固定行距，因为如果单元格的内容较多，会造成显示的内容不全，建议将6和9句的行高规则改成最小值 wdRowHeightAtLeast

my80

batmanbbs 发表于 2023-5-14 19:21
注意：表格中不能有跨行的合并单元格，同时确保每个表格相同
PS：其实我不建议使用固定行距，因为如果单元 ...

感谢老师分享，我试一下再来反馈

my80

vbee 发表于 2023-5-14 16:47
按住CTRL再选择

谢谢老师回复，但是每个学科的表格太多了

my80

batmanbbs 发表于 2023-5-14 19:21
注意：表格中不能有跨行的合并单元格，同时确保每个表格相同
PS：其实我不建议使用固定行距，因为如果单元 ...

老师能把代码粘贴一下吗？手打后出错了

my80

蜀中草莽 发表于 2023-5-14 17:27
也不知道是不是每个表格 都只有四行 ，
遍历一下每个表格  可以根据自己需要 改一下

谢谢老师回复

my80

jiangxiaoyun 发表于 2023-5-14 16:25
for each t in activedocument.tables
r=t.rows.count
r1=r-1

谢谢老师回复