VBA to highlight certain text in a table

Kater · #1 04-22-2024, 03:06 PM

Hello! I have documents that often contain tables where the first column says "NAME:" and then the corresponding row in the second column is where that person would enter their name.

I would like a macro that would highlight the column 2 text (the person's name) IF it does not begin with "AGENT." For example, column 1 says "NAME:", column 2 says "BOB JONES" but it should say "AGENT BOB JONES."

I would prefer the macro to highlight the text (any color is fine) rather than shade the cell.

Also, the macro would need to just end if there happen to not be any tables in said document.

Is that possible?

syl3786 · #2 04-22-2024, 08:26 PM

Quote:

Originally Posted by Kater

Hello! I have documents that often contain tables where the first column says "NAME:" and then the corresponding row in the second column is where that person would enter their name.

I would like a macro that would highlight the column 2 text (the person's name) IF it does not begin with "AGENT." For example, column 1 says "NAME:", column 2 says "BOB JONES" but it should say "AGENT BOB JONES."

I would prefer the macro to highlight the text (any color is fine) rather than shade the cell.

Also, the macro would need to just end if there happen to not be any tables in said document.

Is that possible?

Code:

Sub HighlightNames()
    Dim oTable As Table
    Dim oRow As Row
    Dim oRange As Range

    If ActiveDocument.Tables.Count = 0 Then Exit Sub

    For Each oTable In ActiveDocument.Tables
        For Each oRow In oTable.Rows
            Set oRange = oRow.Cells(2).Range
            oRange.End = oRange.End - 1
            
            If Not oRange.Text Like "AGENT*" Then
                oRange.HighlightColorIndex = wdYellow
            End If
        Next oRow
    Next oTable
End Sub

Kater · #3 04-23-2024, 07:07 AM

Thank you so much for your response! It worked great except that I changed one section because there were some rows in the table that were merged (so they only had one cell in them):

For Each oTable In ActiveDocument.Tables
For Each oRow In oTable.Rows
If oRow.Cells.Count = 2 Then
Set oRange = oRow.Cells(2).range
oRange.End = oRange.End - 1
End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to highlight text, but not all text, in Outlook 2016, 365?	cricket1001	Outlook	2	08-12-2020 11:21 AM
Macro to highlight alternating sections of a table	Jennifer Murphy	Word VBA	35	02-23-2020 02:53 PM
Highlight a Cell which is in a ContentControl which is in a table	keine	Word VBA	1	01-02-2020 08:35 AM
like to highlight web text, enter cntl key, have text appended to same onenote pate	bobk544	OneNote	0	12-10-2017 11:49 AM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM