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

my80

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

再次感谢，处理后后三行行高都是最小值，已达到要求

my80

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

另外再请教，1.每个表格都是四行，第1行行高为5.5cm，后3行行高都为2cm最小值，代码怎样改呢？
2.怎样批量修改每个表格（表格同上）第1列字体为黑体，居中，第2列字体为宋体+Times New Roman，左对齐。

batmanbbs

因为代码需要审核，所以我一般都是发图片，如果确需代码，需要等一段时间才能看到

batmanbbs

1. Sub 修改所有表格行高和字体()
   
2. '
   
3. ' 修改所有表格行高和字体（注意：表格中不能有跨行的合并单元格）
   
4. ' 1.每个表格第1行行高为5.5cm，后3行行高都为2cm最小值
   
5. ' 2.每个表格第1列字体为黑体，居中；第2列字体为宋体+Times New Roman，左对齐
   
6. '
   
7.     Dim myTB As Table, myCell As Cell, i%
   
8.     For Each myTB In ActiveDocument.Tables
   
9.         With myTB
   
10.             .Rows(1).HeightRule = wdRowHeightAtLeast
    
11.             .Rows(1).Height = CentimetersToPoints(5.5)        ' 表格第一行行高：5.5厘米
    
12.             For i = 2 To .Rows.Count        ' 表格第二行到最后一行
    
13.                 .Rows(i).HeightRule = wdRowHeightAtLeast
    
14.                 .Rows(i).Height = CentimetersToPoints(2)        ' 表格第二行到最后一行行高：2厘米
    
15.             Next i
    
16.             With .Range
    
17.                 .Font.NameFarEast = "宋体"
    
18.                 .Font.NameAscii = "Times New Roman"
    
19.                 .ParagraphFormat.Alignment = wdAlignParagraphJustify
    
20.                 .Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
21.             End With
    
22.             For Each myCell In .Columns(1).Cells
    
23.                 With myCell.Range
    
24.                     .Font.Name = "黑体"
    
25.                     .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
26.                 End With
    
27.             Next myCell
    
28.         End With
    
29.     Next myTB
    
30.     Set myTB = Nothing
    
31. 
    
32. End Sub

复制代码

my80

batmanbbs 发表于 2023-5-14 22:33
因为代码需要审核，所以我一般都是发图片，如果确需代码，需要等一段时间才能看到

非常感谢，这个时间还回复，解决了很头疼的问题，周末加班一直没搞好。

batmanbbs

my80 发表于 2023-5-14 22:37
非常感谢，这个时间还回复，解决了很头疼的问题，周末加班一直没搞好。

因为我就这个时间段有时间看论坛
如果非常着急，加好友，我直接给你代码测试

batmanbbs

如果你还有很多文档都是这种格式，想批量处理文档，我也可以再修改成批量处理文档

my80

batmanbbs 发表于 2023-5-14 22:40
因为我就这个时间段有时间看论坛
如果非常着急，加好友，我直接给你代码测试

你加我，权限不够

batmanbbs

my80 发表于 2023-5-14 22:43
你加我，权限不够

加了，你没有确认啊

my80

batmanbbs 发表于 2023-5-14 22:47
加了，你没有确认啊

权限不够，添加不了