Conditionally apply blue font color to table rows using VBA
Dear Experts:
The following macro (courtesy of the MS Word 'Sage' Graham Skan from EE) applies a blue font color on all table rows where the text entry in the 8th column of the tables is 'blue'
I got a a new requirement:
It is always the last column where this text entry is found. Hence instead of hard coding the 8th column, Line 6 and Line 7 should be tweaked to accomodate the new requirement.
Sub BlueRow() Dim tbl As Table Dim rw As row For Each tbl In ActiveDocument.Tables For Each rw In tbl.Rows If Len(rw.Cells(8).Range.Text) = 6 Then If InStr(1, rw.Cells(8).Range.Text, "blue", vbTextCompare) Then rw.Range.Font.Color = wdColorBlue End If End If Next rw Next tblEnd Sub
Sub BlueRow() Dim tbl As Table Dim rw As Row For Each tbl In ActiveDocument.Tables For Each rw In tbl.Rows If InStr(1, rw.Cells(rw.Cells.Count).Range.Text, "blue", vbTextCompare) Then rw.Range.Font.Color = wdColorBlue End If Next rw Next tblEnd Sub
Open in new window
which you may simply remove it.to become:
Open in new window