[SOLVED] Macro to add index entries

hutch@edge.net · #1 06-23-2009, 11:28 AM

Greetings, Gurus. I am trying to help automate the task of adding index entries in MS Word 2007. Unfortunately, I know NOTHING about Word macros.

In the below macro, I have selected the word "warehouse", then recorded the steps to adding "warehouse" to the index. Ideally I would like to select another word, run the macro, and THAT word would be added to the index. Unfortunately, that isn't happening.

Here's what I've got. Can someone help me to add the SELECTED word to the index?

Thanks in advance.

Code:

Sub Add_to_Index()
    ActiveWindow.ActivePane.View.ShowAll = True
    ActiveDocument.Indexes.MarkAllEntries Range:=Selection.Range, Entry:= _
        "warehouse", EntryAutoText:="warehouse", CrossReference:="", _
        CrossReferenceAutoText:="", BookmarkName:="", Bold:=False, Italic:=False
    ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _
        ShowAll
End Sub

Andy Pope · #2 06-23-2009, 11:38 AM

Like this maybe.

Code:

Sub Add_to_Index()
    ActiveDocument.Indexes.MarkAllEntries Range:=Selection.Range, _
                    Entry:=Selection.Range.Text, _
                    EntryAutoText:=Selection.Range.Text, _
                    CrossReference:="", CrossReferenceAutoText:="", BookmarkName:="", _
                    Bold:=False, Italic:=False
End Sub

hutch@edge.net · #3 06-23-2009, 12:02 PM

Perfect, Andy. Thanks.

Have a good one!

Welcome to the Excel Forum

Forum Statistics