VBA Highlight numbers only after or before specific words help

Shelley Lou · #1 08-08-2022, 01:19 AM

Thank you Andrew and Macropod for taking the time to share your code, it is very much appreciated.

Macropod, I have just run DemoB and works perfectly if there are no cross reference fields within the document but appears to bug if there are cross reference fields.

Code:

.Start = .Words(2).Start

I have a second string (StrFndB) that should highlight digits before those words but not sure how to add that to your second code (DemoB).

Code:

Sub DemoB()
Application.ScreenUpdating = False
Dim StrFndA As String, StrFndB As String, i As Long, Rng As Range
StrFndA = "[Cc]lause,[Pp]aragraph,[Pp]art,[Ss]chedule" 'highlight numbers after these words
StrFndB = "[Mm]inute,[Hh]our,[Dd]ay,[Ww]eek,[Mm]onth,[Yy]ear,[Ww]orking,[Bb]usiness" 'highlight numbers before these words
For Each Rng In ActiveDocument.StoryRanges
  With Rng
    Select Case .StoryType
      Case wdMainTextStory, wdFootnotesStory
        For i = 0 To UBound(Split(StrFndA, ","))
          With .Duplicate
            With .Find
              .ClearFormatting
              .Replacement.ClearFormatting
              .Forward = True
              .Wrap = wdFindStop
              .MatchWildcards = True
              .text = Split(StrFndA, ",")(i) & "[s \^s]@[0-9.]{1,}"
            End With
            Do While .Find.Execute
              .Start = .Words(2).Start
              .HighlightColorIndex = wdTurquoise
              .Collapse wdCollapseEnd
            Loop
          End With
        Next
      Case Else
    End Select
  End With
Next Rng
Application.ScreenUpdating = True
End Sub

macropod · #2 08-08-2022, 06:55 AM

Quote:

Originally Posted by Shelley Lou

Macropod, I have just run DemoB and works perfectly if there are no cross reference fields within the document but appears to bug if there are cross reference fields.

Code:

.Start = .Words(2).Start

You could insert:

Code:

ActiveWindow.ActivePane.View.ShowFieldCodes = True

after:

Code:

Application.ScreenUpdating = False

and:

Code:

ActiveWindow.ActivePane.View.ShowFieldCodes = False

before:

Code:

Application.ScreenUpdating = True

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Highlight numbers after a specific word in numbered list	liblikas90	Word VBA	3	02-27-2019 03:52 AM
How to highlight lines containing specific words	SixStringSW	Word VBA	4	06-03-2018 03:57 PM
How to find (highlight) two and more words in a list of 75k single words in Word 2010	Usora	Word	8	05-29-2018 03:34 AM
Search a cell that contains words and numbers and convert the numbers to metric	Carchee	Excel Programming	36	10-08-2014 03:16 PM
VBA to highlight words if used too much	aolszewski	Word VBA	3	11-23-2013 02:07 AM