Regex-pattern

batman1 · #26 01-06-2025, 11:33 AM

Quote:

Originally Posted by vivka

Or another presentation of Greg's idea:

Code:

Sub ScratchMacro()
'Coded by Gregory K. Maxey
'https://www.msofficeforums.com/184580-post31.html

 Dim oRng As range
  Set oRng = ActiveDocument.range
  With oRng.Find
    .text = "<[0-9]{4,5}>"
    .MatchWildcards = True
    While .Execute
        If InStr(oRng.text, "2") > 0 Then MsgBox oRng.text
    Wend
  End With
lbl_Exit:
  Exit Sub
   End Sub

As I explained the number DOES NOT HAVE TO be a word, it can be part of a word.

If the data is:
a3452b
13452
then the code with .text = "[0-9]{4,5}" will find both 3452 and 13452. Meanwhile, the result 13452 is not good because 2 appears in the fifth place and not in 1-4

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Capture group in RegEx	alex100	Word VBA	1	01-02-2021 02:39 PM
Regex over 700 matches in a long doc	totoMSOF	Word VBA	19	03-11-2019 01:28 PM
Using VB Regex feature, I tried to replace 'the' and 'this' with 'that' but got screwed	abdan	Word VBA	3	01-18-2019 09:38 PM
Macro help regex	subspace3	Word VBA	1	10-15-2014 09:53 AM
Regex in Word: Replaced strings are in disorder	chgeiselmann	Word	0	04-26-2009 11:33 AM