Microsoft Office Forums - View Single Post - [Solved] Macro to change all text color to black in all docx files in a selected folder

gmayor · 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