#1
|
|||
|
|||
VBA to highlight certain text in a table
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? |
#2
|
|||
|
|||
Quote:
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 |
#3
|
|||
|
|||
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 |
Tags |
highlight color, table |
|
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 |