Wildcards and track changes

macropod · #1 06-05-2022, 10:27 PM

You don't need wildcards for this. For example:

Code:

Sub TrackChanges()
Application.ScreenUpdating = False
Dim bTrk As Boolean
With ActiveDocument
  bTrk = .TrackRevisions
  .TrackRevisions = False
  With .Range
    With .Find
      .ClearFormatting
      .Format = False
      .Forward = False
      .Wrap = wdFindStop
      .Text = ""
      .Replacement.Text = ""
      .Font.Underline = True
    End With
    Do While .Find.Execute
      .Font.Underline = False
      .Cut
      ActiveDocument.TrackRevisions = True
      .Paste
      ActiveDocument.TrackRevisions = False
      .Collapse wdCollapseStart
    Loop
  End With
  With .Range
    With .Find
      .ClearFormatting
      .Forward = False
      .Wrap = wdFindStop
      .Font.StrikeThrough = True
    End With
    Do While .Find.Execute
      .Font.StrikeThrough = False
      ActiveDocument.TrackRevisions = True
      .Delete
      ActiveDocument.TrackRevisions = False
      .Collapse wdCollapseStart
    Loop
  End With
  .TrackRevisions = bTrk
End With
Application.ScreenUpdating = True
End Sub

valentinator · #2 06-06-2022, 11:10 AM

Quote:

Originally Posted by macropod

You don't need wildcards for this. For example:

Thank you so much for the help! Sadly, it didn't seem to work for me.
I think you used simple underline and mine is double. I tried tweaking it by myself but I don't know enough coding to make it work.
These are the two formatting options that I would need changed:
- Insertions are un double underline

- Deletions are strikethrough

I know I can leave the replace box empty for the deletions and that will do the trick, my only issue is with the insertions.

valentinator · #3 06-06-2022, 11:17 AM

Attaching formats for reference

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using wildcards with SEARCH	14spar15	Excel	7	10-14-2020 08:43 AM
Creating PDF in track changes - simple track changes only	sophiah81	Word	8	07-19-2018 12:51 AM
Wildcards	raghugada	Word VBA	3	06-10-2017 01:52 AM
Wildcards	Madcat	Word	2	12-21-2014 08:27 PM
Track Changes doesn't track Change Case changes	wardw	Word	3	10-28-2012 05:31 PM