Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #5  
Old 01-10-2024, 05:46 PM
syl3786 syl3786 is offline Word Macro issue: Change text color with track changes record Windows 10 Word Macro issue: Change text color with track changes record Office 2019
Advanced Beginner
Word Macro issue: Change text color with track changes record
 
Join Date: Jan 2023
Posts: 97
syl3786 is on a distinguished road
Default

Quote:
Originally Posted by Guessed View Post
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
I want to express my deep gratitude for your assistance! The solution you provided has proven to be effective!
Reply With Quote
 

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Word Macro issue: Change text color with track changes record 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
Word Macro issue: Change text color with track changes record Macro in Word to track colour of highlighted text BABZ Word VBA 1 01-09-2017 10:33 PM
Word Macro issue: Change text color with track changes record 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

Other Forums: Access Forums

All times are GMT -7. The time now is 05:53 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft