We help IT Professionals succeed at work.
Get Started

Conditionally apply blue font color to table rows using VBA

Andreas Hermle
on
153 Views
Last Modified: 2017-11-22
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 tbl
End Sub

Open in new window


Help is very much appreciated. Thank you very much in advance.

Regards, Andreas
Comment
Watch Question
CERTIFIED EXPERT
Distinguished Expert 2020
Commented:
This problem has been solved!
Unlock 1 Answer and 3 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE