WORD所有表格中的单元格如果为合计则居中对齐

woyaofacai

word中有多个表格，能否用VBA批量处理如果单元格中出现固定的字符为合计，则该单元格对齐方式为居中？ 合计对齐.rar (17.16 KB, 下载次数: 3)

2019-6-26 21:41 上传

点击文件名下载附件

413191246se

1. Sub 循环遍历所有表格单元格_合计加粗()
   
2.     Dim t As Table, c As Cell
   
3.     For Each t In ActiveDocument.Tables
   
4.         For Each c In t.Range.Cells
   
5.             If c.Range Like "合计*" Then
   
6.                 With c.Range
   
7.                     With .Font
   
8.                         .NameFarEast = "黑体"
   
9.                         .Bold = True
   
10.                         .Color = wdColorRed '红色（本行代码可删除）
    
11.                     End With
    
12.                     .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
13.                 End With
    
14.             End If
    
15.         Next
    
16.     Next
    
17. End Sub

复制代码

woyaofacai

413191246se 发表于 2019-6-27 00:53

太谢谢了，完美解决了问题