problem with capturing group in findText/ReplaceWith

Ddadoo57 · #16 02-20-2025, 03:01 AM

if I set

Code:

objDoc.TrackRevisions = true

the replacement with your code gives HiHello… !

my code also works with objDoc.TrackRevisions = false

Code:

texte.Find.ClearFormatting
texte.Find.Replacement.ClearFormatting
texte.Find.MatchWildcards = True
texte.Find.Execute FindText:="…([A-Za-zÀ-ÖØ-öø-ÿ0-9])", ReplaceWith:="… \1", Replace:=wdReplaceAll

and if I set objDoc.TrackRevisions = true, the only code I found was the code I mentioned earlier, namely :

Code:

    With texte 'pour "…[A-Z]"
        With .Find
            .Forward = True: .Wrap = wdFindStop: .MatchWildcards = True
            .Text = "…[A-Za-zÀ-ÖØ-öø-ÿ0-9]"
        End With
        Do While .Find.Execute = True
            .Text = "… " & Right(.Text, 1): .Collapse wdCollapseEnd
        Loop
    End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and Replace not capturing entire line	Steve Kunkel	Word VBA	7	04-22-2021 10:00 AM
Capturing numbered headings	jbvalen	Word VBA	5	05-04-2017 05:03 PM
Capturing Redirected URL with macro	souravkp	Word VBA	1	07-11-2015 09:34 PM
Capturing addresses into contacts	lordnacho	Outlook	1	11-01-2010 06:05 PM
time capturing	aligahk06	Excel	0	04-18-2010 11:53 PM