Macro to search word document for a several specific numbers and highlight them if they exist

jmdonhauser · #4 09-22-2023, 10:21 AM

Quote:

Originally Posted by gmayor

It may not be possible to do this in a single pass, without knowing what else is in the document, so I would suggest a sequential search e.g. as below. This should search the common story ranges in a document, but if not the coding gets more complicated to cover the less common ones, to which end I would suggest Document Batch Processes,
See also Replace using wildcards

Code:

Option Explicit

Sub Macro1()
Dim vFindText As Variant
Dim i As Long
Dim oStory As Range
    vFindText = Array("25.222", "25.2666", "25.223")
   
    For Each oStory In ActiveDocument.StoryRanges
        For i = 0 To UBound(vFindText)
            With oStory.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .MatchWildcards = True
                Do While .Execute(findText:=vFindText(i))
                    oStory.HighlightColorIndex = wdTurquoise
                    oStory.Collapse 0
                Loop
            End With
        Next i
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                For i = 0 To UBound(vFindText)
                    With oStory.Find
                        .ClearFormatting
                        .Replacement.ClearFormatting
                        .MatchWildcards = True
                        Do While .Execute(findText:=vFindText(i))
                            oStory.HighlightColorIndex = wdTurquoise
                            oStory.Collapse 0
                        Loop
                    End With
                Next i
            Wend
        End If
    Next oStory
lbl_Exit:
    Set oStory = Nothing
    Exit Sub
End Sub

Is it possible to modify this code (or use a separate macro) to verify if a second number in a document exists at the same time?

For example, using one of the numbers above (25.222).
I would like to check the document IF 25.222 exists, THEN does a second specific number (entered by the user) exists in the document simultaneously. So if 25.222 is in the document, I need to know 25.2666 is also in the document at the same time.
Maybe as an output, both would be highlighted or if one or the other doesn't exist, then a false statement or no highlighting.

Is that possible?

Thanks ahead!

J

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Highlight numbers only after or before specific words help	Shelley Lou	Word VBA	12	08-09-2022 03:02 AM
Highlight words in a table that does not exist in current document	laith93	Word VBA	7	08-19-2021 03:51 AM
Macro to highlight and bolden specific text in Word Comments	PCUSER	Word VBA	1	09-22-2020 03:08 PM
Highlight numbers after a specific word in numbered list	liblikas90	Word VBA	3	02-27-2019 03:52 AM
Macro to search for specific words in a document	mike0215	Word VBA	2	11-28-2017 07:25 AM