dbf转word表格后低于60用红色显示，其他用黑色显示

请哪位大侠帮帮忙，万分感谢！！！

            以下代码实现了把几个颜色的RGB值存放到一个字段里面，后续读取到某个特定值时取匹配颜色，把Word文档中的某个表格的指定位置背景色变色！

REPLACE ALL YHRGB WITH "RGB(0,176,80)" FOR ALLTRIM(G_dj)="I"
            REPLACE ALL YHRGB WITH "RGB(0,176,240)" FOR ALLTRIM(G_dj)="II"
            REPLACE ALL YHRGB WITH "RGB(255,255,0) FOR ALLTRIM(G_dj)="III"
            REPLACE ALL YHRGB WITH "RGB(255,0,0) FOR ALLTRIM(G_dj)="IV"        

IF LEN(ALLTRIM(J_dj))>0
                JccgWord.Documents(1).Tables(1).Cell(I+2, 11).Range.Text = ALLTRIM(STR(Ri,6,2))
                *************设置word表格的底纹颜色**************
                RGB111=ALLTRIM(XFRGB)
                mrange=JccgWord.Documents(1).range(JccgWord.Documents(1).Tables(1).Cell(I+2, 7).range.start,JccgWord.Documents(1).Tables(1).Cell(I+2, 12).range.end)
                  mrange.Cells.Shading.BackgroundPatternColor = &RGB111   &&&&&&&&& 设置文字的颜色： mrange.Shading.BackgroundPatternColor = &RGB111
           ENDIF