[Leslie Coover]

After text has been highlighed, the shortcut keys to mark an item in Word 2010 a

€¢ Alt + Shift + X
€¢ Press Enter
€¢ Press ESC
€¢ Ctrl + Shift + *

I tried to make a macro to combine these steps into one shorcut. When I use my shortcut on the first entry it appears in my document when I show paragraph marks (¶) and when I create an Index. However, on the next entry it appears when ¶ is selected, but not when I update, or recreate the Index.

Any suggestions welcomed. I would like to find an easier way to mark an index item rather than going through all the steps listed above.

˜¼˜»˜¼

[Stefan Blom[_3_]]

If you want to quickly create a main index entry (no cross-references or
sub-entries) based on the current selection, just run the following macro:

Sub InsertMainIndexEntryFromSel()
If Selection.Range.Text = "" Then
MsgBox "Nothing is selected. Please try again."
Exit Sub
End If
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:= _
"Selection.Range.Text", Bold:=False, Italic:=False
ActiveWindow.ActivePane.View.ShowAll = False
End Sub

Save the macro in Normal.dotm and assign a button on the Quick Access
Toolbar to it. See http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP




"Leslie Coover" wrote in message
...
After text has been highlighed, the shortcut keys to mark an item in Word
2010 a

€¢ Alt + Shift + X
€¢ Press Enter
€¢ Press ESC
€¢ Ctrl + Shift + *

I tried to make a macro to combine these steps into one shorcut. When I
use my shortcut on the first entry it appears in my document when I show
paragraph marks (¶) and when I create an Index. However, on the next
entry it appears when ¶ is selected, but not when I update, or recreate
the Index.

Any suggestions welcomed. I would like to find an easier way to mark an
index item rather than going through all the steps listed above.

˜¼˜»˜¼

[Stefan Blom[_3_]]

Sorry, I spotted an error. Use this macro instead:

Sub InsertMainIndexEntryFromSel()
If Selection.Range.Text = "" Then
MsgBox "Nothing is selected. Please try again."
Exit Sub
End If
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:= _
Selection.Range.Text, Bold:=False, Italic:=False
ActiveWindow.ActivePane.View.ShowAll = False
End Sub

--
Stefan Blom
Microsoft Word MVP




"Stefan Blom" wrote in message
...
If you want to quickly create a main index entry (no cross-references or
sub-entries) based on the current selection, just run the following macro:

Sub InsertMainIndexEntryFromSel()
If Selection.Range.Text = "" Then
MsgBox "Nothing is selected. Please try again."
Exit Sub
End If
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:= _
"Selection.Range.Text", Bold:=False, Italic:=False
ActiveWindow.ActivePane.View.ShowAll = False
End Sub

Save the macro in Normal.dotm and assign a button on the Quick Access
Toolbar to it. See http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP




"Leslie Coover" wrote in message
...
After text has been highlighed, the shortcut keys to mark an item in Word
2010 a

€¢ Alt + Shift + X
€¢ Press Enter
€¢ Press ESC
€¢ Ctrl + Shift + *

I tried to make a macro to combine these steps into one shorcut. When I
use my shortcut on the first entry it appears in my document when I show
paragraph marks (¶) and when I create an Index. However, on the next
entry it appears when ¶ is selected, but not when I update, or recreate
the Index.

Any suggestions welcomed. I would like to find an easier way to mark an
index item rather than going through all the steps listed above.

˜¼˜»˜¼

[Leslie Coover]

Thank you so much Stefan, the code works perfectly and the Idiots' guide to installing macros was very helpful.

Leslie Charles

[Stefan Blom[_3_]]

You are welcome. Thanks for the feedback!

--
Stefan Blom
Microsoft Word MVP




"Leslie Coover" wrote in message
...
Thank you so much Stefan, the code works perfectly and the Idiots' guide
to installing macros was very helpful.

Leslie Charles

[[email protected]]

I needed this info too and it works great, thanks.