Highlight words in a table that does not exist in current document

Guessed · #6 08-19-2021, 01:35 AM

The coding for this is going to be simplest if you (temporarily) paste the abbreviations table into the main document to run this code. This code assumes you pasted the table at the very end of the document.

Code:

Sub CheckAcroInUse()
  Dim aTbl As Table, sAbb As String, aRng As Range, aCell As Cell
  Set aTbl = ActiveDocument.Tables(ActiveDocument.Tables.Count)
  Set aRng = ActiveDocument.Range(0, aTbl.Range.Start)
  
  For Each aCell In aTbl.Columns(1).Cells
    sAbb = Split(aCell.Range.Text, vbCr)(0)
    If InStr(aRng.Text, sAbb) = 0 Then
      aCell.Range.HighlightColorIndex = wdYellow
    End If
  Next aCell
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and highlight multiple words in MS Word document	AtaLoss	Word VBA	37	09-22-2021 12:04 PM
How to redact words listed in one document from the current document	AlanofBayCourt	Word VBA	0	10-31-2019 03:00 AM
Find and highlight multiple words in MS Word document	qkjack	Word VBA	7	02-21-2018 07:09 PM
Using VBA to Compare and Highlight words in a Word Table's Row/Cell	KeithLee22	Word VBA	2	11-11-2015 03:37 PM
Find and highlight multiple words in a document	flatop	Word VBA	3	04-16-2014 10:29 PM