Microsoft Office Forums - View Single Post - [Solved] Macro to Mark Text with Index Codes

MyUserName123 · 07-07-2020, 07:59 PM

Quote:

Originally Posted by Guessed

The easiest fix for the code is to temporarily hide the field codes while the macro is running.

Code:

Sub MarkIndexMacro()
  Dim myRange As Range, aFld As Field, sXE As String
  ActiveWindow.View.ShowHiddenText = False
    Set myRange = ActiveDocument.Range
    With myRange.Find
      .Font.Color = wdColorRed
      Do While .Execute
        sXE = Trim(myRange.Text)
        ActiveDocument.Indexes.MarkEntry Range:=myRange, Entry:=sXE
        myRange.Collapse Direction:=wdCollapseEnd
      Loop
    End With
  ActiveWindow.View.ShowHiddenText = True
End Sub

Hi, I tried your code with a couple of different files and it works great.

Thank you for all your help.