Word表格＜60红色字体

liuyunzhuzi

请问各位大神，用什么方法能将Word表格中＜60的数值，用红色字体标注出来。

附件是操作表格

kqbt

测试下列代码前，请自行备份原文档。

1. Sub FailToRed()
   
2.   Dim wTab As Table, rn As Integer, cn As Integer
   
3.   Dim wRng As Range
   
4.   For Each wTab In ActiveDocument.Tables
   
5.     For rn = 10 To 33
   
6.       For cn = 3 To 14
   
7.         Set wRng = wTab.Cell(rn, cn).Range
   
8.         wRng.SetRange wRng.Start, wRng.End - 1
   
9.         If IsNumeric(Trim(wRng)) And Trim(wRng) < 60 Then
   
10.          wRng.Font.Color = wdColorRed
    
11.         End If
    
12.       Next
    
13.     Next
    
14.   Next
    
15. End Sub

复制代码