【已解决】如何让word中的表格的某一列的数保留两位小数

黑星殿下s

求助大神们有没有办法将word中的表格批量修改为保留两位小数的数字，因为有几百页的word表格，也不方便粘到excel上处理之后再粘回来，请问大神们有没有什么办法？附件在此

zmj9151

format函数

zhanglei1371

VBa逐个遍历单元格，format设置。纯体力活。
或者通配符查找(<[0-9]{1,}>)，替换为\1.00，猜测，不知是否可用。

黑星殿下s

zhanglei1371 发表于 2021-7-12 15:55
VBa逐个遍历单元格，format设置。纯体力活。
或者通配符查找()，替换为\1.00，猜测，不知是否可用。

WORD里面的单元格怎么用VBA遍历啊？

413191246se

1. Sub aaaa_keep_2_decimals()
   
2.     Dim t As Table, c As Cell, r As Range
   
3.     Documents.Add (ActiveDocument.FullName)
   
4.     With ActiveDocument
   
5.         .Select
   
6.         CommandBars.FindControl(ID:=123).Execute
   
7.         CommandBars.FindControl(ID:=122).Execute
   
8.         For Each t In .Tables
   
9.             With t
   
10.                 For Each c In .Columns(5).Cells
    
11.                     Set r = c.Range
    
12.                     With r
    
13.                         .MoveEnd 1, -1
    
14.                         .Font.ColorIndex = wdRed
    
15.                         If Not .Text Like "*.*" Then .Text = .Text & ".00"
    
16.                     End With
    
17.                 Next
    
18.                 For Each c In .Columns(14).Cells
    
19.                     Set r = c.Range
    
20.                     With r
    
21.                         .MoveEnd 1, -1
    
22.                         .Font.ColorIndex = wdPink
    
23.                         If Not .Text Like "*.*" Then .Text = .Text & ".00"
    
24.                     End With
    
25.                 Next
    
26.             End With
    
27.         Next
    
28.     End With
    
29.     Selection.HomeKey 6
    
30.     Windows.CompareSideBySideWith "保留两位小数"
    
31. End Sub

复制代码

黑星殿下s

413191246se 发表于 2021-7-12 23:59

多谢大佬！！！