Macro to change all text color to black in all docx files in a selected folder

gmayor · #4 01-27-2016, 09:32 AM

It should work for the document body, but for more complex documents, use the following in place of
Selection.WholeStory
Selection.Font.Color = -587137025

Code:

Dim oStory As Range
    For Each oStory In wdDoc.StoryRanges
        oStory.Font.ColorIndex = wdBlack
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                oStory.Font.ColorIndex = wdBlack
            Wend
        End If
    Next oStory

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Run a macro on multiple docx. files	Peter Carter	Word VBA	27	12-15-2022 04:10 PM
I can't change red text to black	Nathan8752	Word	1	10-12-2015 08:26 AM
macro to change name of files in a folder in order	expert4knowledge	Word VBA	5	07-10-2014 03:54 PM
Word Macro - change date in footer for all files in a folder	patidallas22	Word VBA	2	03-09-2012 08:14 AM
Change cell color everytime a value is selected in dropdown list	angelica_gloria	Excel	4	01-27-2012 06:47 PM