Macro to Mark Text with Index Codes

gmayor · #1 07-06-2020, 10:48 PM

You were almost right

Code:

Sub MarkIndexMacro()
Dim myRange As Range
    Set myRange = ActiveDocument.Range
    With myRange.Find
        .Text = ""
        .Font.ColorIndex = wdRed
        Do While .Execute
            ActiveDocument.Indexes.MarkEntry Range:=myRange, Entry:=myRange.Text
            myRange.Collapse 0
        Loop
    End With
    Set myRange = Nothing
End Sub

MyUserName123 · #2 07-06-2020, 11:16 PM

Hi, thanks for your response.

I just tried the macro, and it seems to give me an infinite loop, with the XE codes repeating one right after another. I've experimented with modifying the code a few different ways, but I can't get it to stop looping. It also seems to put in a character that looks like a question mark in a box. I tried to copy and paste it here, but I can't.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for mark index entry for every word in a document?	Jay Jay	Word VBA	5	08-13-2015 03:44 PM
Hyperlinking from the Index to the Origin Mark	Phil H	Word	2	08-30-2013 04:03 AM
Index Addition Leaves Hidden Codes On	SQLUSA	Word	3	07-23-2012 02:58 AM
Options of Index Mark Entry	smaria	Word	1	04-22-2010 05:48 AM
Macro to mark non-coloured/non-highlighted text as hidden	PeterB	Word	0	10-28-2009 07:54 AM