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

macropod · #17 02-20-2025, 03:31 AM

You could, of course, use Word's built-in document compare feature without using track changes while running your code. The built-in document compare feature will generate a result equivalent to a document with track changes.

Alternatively, you would use something like:

Code:

Sub Demo()
Application.ScreenUpdating = False
ActiveDocument.TrackRevisions = True
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .MatchWildcards = True
    .Text = "…[A-Za-zÀ-ÖØ-öø-ÿ0-9]"
    .Wrap = wdFindStop
    .Forward = True
  End With
  Do While .Find.Execute
    .Characters.First.InsertAfter " "
    .Collapse wdCollapseEnd
  Loop
End With
Application.ScreenUpdating = True
End Sub

Ddadoo57 · #18 02-20-2025, 04:00 AM

Thank you, it works very well (it's a bit like what I was proposing), but I find it cleaner and I'll adopt it, thank you. With this solution I'll be able to get around the problem with group captures when TrackRevisions is true.

Have a nice day!

Ddadoo57 · #19 03-01-2025, 11:16 AM

Just to end this thread, here's the solution I've adopted:
- I no longer track modifications (.TrackRevisions = False)
- in most cases, I simply process my corrections with or without MatchWildcards.
- finally, I've created a procedure that compares the original files and those to which the punctuation correction has been applied. This creates a comparison file where the corrections are clearly highlighted.
Thanks for your contributions!

PS: I'd just like to remind you that this problem comes from an unhandled error in VBA. We can't track changes and use group captures correctly in our find/replace.

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