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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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