Microsoft Office Forums - View Single Post - [Solved] Word Macro issue: Change text color with track changes record

syl3786 · 01-10-2024, 08:08 AM

Hello everyone,

I was hoping to get some assistance with an issue I'm having in a Word Document. I have a macro that changes text from wdred to wdblack, but I would like the changes to be tracked so that I can easily identify which parts of the document have been modified. I tried adding "ActiveDocument.TrackRevisions = True" at the beginning of the code, but unfortunately it's not working as expected. Although the text color is changing correctly, I'm unable to identify which parts of the document have been modified, as the document is quite large (200 pages).

Here's the code I'm currently using:

Code:

Sub Macro1()

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorBlack
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Would anyone be willing to assist with this issue? I would greatly appreciate any help or suggestions you may have. Thank you!

Remarks:

My computer:

Windows 10
Microsoft Office 2019
i7-8700
8 GB Ram