How to get the purpose

Martin.wang · July 20th, 2009, 10:02 AM

I have a table in the word, two columns. The first column is intend to input value, the second column is limit.

I want to get the below purpose, how to get through VBA?

If the first column value is great than second column, the first column color of value is red, or not black.

thanks you in advance.

Shasur · July 20th, 2009, 10:05 PM

Hi Martin

Here is a hint:

Code:

Sub Color_Table()
Dim oTab As Table
Dim sCol1 As String
Dim sCol2 As String
Set oTab = ActiveDocument.Tables(1)
For i1 = 1 To oTab.Rows.Count
    sCol1 = oTab.Cell(i1, 1).Range.Text
    sCol2 = oTab.Cell(i1, 2).Range.Text
    If Val(sCol1) > Val(sCol2) Then
        oTab.Cell(i1, 1).Range.Font.ColorIndex = wdRed
    End If
Next i1

End Sub