Forum Discussion

Copper Contributor

Jun 13, 2023

How to add color to index entries in a Word File

My book has an index, but when "Show" is toggled, it is hard to read the text with so many index entries. I am hoping it is possible to color the index entries so that they can either be ignored to r...

Jay Freedman

Brass Contributor

Jul 13, 2023

Charles_Kenyon

Coloring all the entries doesn't have to be a lot of work. Just run this macro:

Sub Color_Index()
    Dim oFld As Field
    Dim oIdx As Index
    
    For Each oFld In ActiveDocument.Fields
        If oFld.Type = wdFieldIndexEntry Then
            oFld.Code.Select
            Selection.Font.ColorIndex = wdRed
        End If
    Next oFld
    
    For Each oIdx In ActiveDocument.Indexes
        oIdx.Update
    Next oIdx
End Sub

jellow1155

Copper Contributor

Jul 13, 2023

Awesome! Thanks!