How to find all text in wdRed and then change to wdBlack, with track changes?

[yanlok1345]

Hello everyone,

I utilized a word macro to replace all text in wdREd with wdBlack. Despite including the line ActiveDocument.TrackRevisions = True, the tracked changes are not visible after executing the macro. I would appreciate any assistance in resolving this issue. Thank you kindly for your support!

Code: Select all

Sub RedToBlack()

    ActiveDocument.TrackRevisions = True
    Dim rng As Range
    Set rng = ActiveDocument.Content
    
    With rng.Find
        .ClearFormatting
        .Font.ColorIndex = wdRed
        .Replacement.ClearFormatting
        .Replacement.Font.ColorIndex = wdBlack
        .Execute Replace:=wdReplaceAll
    End With
    
End Sub

[HansV]

It looks like Word (in Microsoft 365 at least) does not track formatting changes applied by a macro.
You can report this: File > Feedback > Send a Frown

[yanlok1345]

It looks like Word (in Microsoft 365 at least) does not track formatting changes applied by a macro.
You can report this: File > Feedback > Send a Frown

Thank you for your reply. I am using company's computer and we are not allowed to give feedback to Microsoft. I found out that is the problem of coding in VBA. I solved it by using boolean and RT for ActiveDocument.TrackRevision.

Again, many thanks for your help every time!

[Charles Kenyon]

Perhaps you want to give feedback to your IT department to pass on to Microsoft?

[Charles Kenyon]

Cross-posted at: https://www.msofficeforums.com/word-vba ... track.html
For cross-posting etiquette, please read: A Message to Forum Cross-Posters
https://www.excelguru.ca/content.php?184