WORD表格中对数字设置的问题

sc204400

WORD文档中的表格数字前面有一定的空格，导致数字换行靠下对齐，设置理想的格式数字应该是上下居中靠右对齐，如果手工设置需先在段落中设置为居中，再右对齐，因文档中表格N多，有没有VBA的方式一次性对所有表格中的数字设置为上下对齐为居中且右对齐而表头和文字不作处理，尝试用wCel.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter设置，再右对齐模拟人工方式处理，都不能得到正确的格式。

413191246se

1. Sub test_Number_Right()
   
2.     Dim t As Table, c As Cell
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t.Range
   
5.             .Rows.WrapAroundText = False
   
6.             .ParagraphFormat.Space1
   
7.             .Cells.VerticalAlignment = wdCellAlignVerticalCenter
   
8.             For Each c In .Cells
   
9.                 With c.Range
   
10.                     If .Text Like "*?.??*" Then
    
11.                         .Font.ColorIndex = wdRed '红色(此行代码可删除)
    
12.                         .Select
    
13.                         CommandBars.FindControl(ID:=122).Execute
    
14.                         .ParagraphFormat.Alignment = wdAlignParagraphRight
    
15.                     End If
    
16.                 End With
    
17.             Next
    
18.         End With
    
19.     Next
    
20.     Selection.HomeKey 6
    
21. End Sub

复制代码

sc204400

完美解决，谢谢