Regex-pattern

vivka · #31 01-06-2025, 12:19 PM

In the code

Code:

<[0-9]{4,5}>

< and > identify a 4- or 5-digit 'word' without any letters. You can test it. As for finding 2 in all positions but fifth, Greg's 2nd condition can be used. So, the final code is:

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(left(oRng.text, 4), "2") > 0 Then MsgBox oRng.text     
     Wend   
   End With 
lbl_Exit:   
   Exit Sub    
End Sub

However, I repeat that my (not rich) experience shows that there are situations when only regex can be helpful.

batman1 · #32 01-06-2025, 01:15 PM

Quote:

Originally Posted by vivka

In the code

Code:

<[0-9]{4,5}>

< and > identify a 4- or 5-digit 'word' without any letters. You can test it. As for finding 2 in all positions but fifth, Greg's 2nd condition can be used. So, the final code is:

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(left(oRng.text, 4), "2") > 0 Then MsgBox oRng.text     
     Wend   
   End With 
lbl_Exit:   
   Exit Sub    
 End Sub

I have already explained that the task does not require the number to be a word - it can be part of a word.

With data:
13452234567
a3452b
67892
123456 23556789 3456789 a234667 13452234567 a3452b 1342 222

podany kod znajdzie tylko 1342 . Tymczasem wyniki =
34522
3452
7892
12345
23556
23466
34522
3452
1342

vivka · #33 01-06-2025, 01:24 PM

That's clear as mud. In 13452234567 should the code find 34522 and in 123456 12345 ? Then what is the rule/principle of the search? If "Find in the sequence all numbers consisting of 4 or 5 digits, whose first 4 digits have at least 1 digit 2", then 13452234567 contains 3452, 2345, 23456, correct? Ok, never mind! I'm getting too obsessed with the topic and stressing you with my questions.

gmaxey · #34 01-06-2025, 01:26 PM

Batman1, Vivka

While this is an interesting discussion, I am going to start a new thread as we seem to be wondering in the weeds here and moving away from the original question.

Link to follow on discussion: https://www.msofficeforums.com/word-...tml#post184590

batman1 · #35 01-06-2025, 01:31 PM

Quote:

Originally Posted by gmaxey

Batman1, Vivka

While this is an interesting discussion, I am going to start a new thread as we seem to be wondering in the weeds here and moving away from the original question

Yes, I understand

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

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