Word Macro issue: Change text color with track changes record

Guessed · #4 01-10-2024, 05:04 PM

The Execute ReplaceAll command doesn't track the formatting change so you need to loop that step.

Code:

Sub Macro1()
  Dim aRng As Range, aRng2 As Range
  ActiveDocument.TrackRevisions = True
  ActiveDocument.TrackFormatting = True
  
  Set aRng = Selection.Range
  Set aRng2 = aRng.Duplicate
  With aRng.Find
    .ClearFormatting
    .Font.Color = wdColorRed
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do While .Execute = True
      aRng.Font.ColorIndex = wdBlack
      aRng.End = aRng2.End
    Loop
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 16/19 change font and outside border color (same color) eg is red change to pink	jec1	Word VBA	2	12-04-2019 11:32 PM
Macro to change an RGB table cell shading color to another RGB color	David Matthews	Word VBA	4	05-29-2018 02:45 PM
Macro in Word to track colour of highlighted text	BABZ	Word VBA	1	01-09-2017 10:33 PM
Macro to change all text color to black in all docx files in a selected folder	joewoods	Word VBA	13	05-16-2016 06:29 PM
Word macro doesn't change font color	Spideriffic	Word VBA	8	11-04-2015 03:47 AM