Can someone please tweak my Macro?

[Wibs]

OK, this isn't Excel, it's Word, but there is no forum for Word comparable to this forum for Excel, and as the problem is really VBA I thought, heh, give it a try.

I want to record a macro to help me with indexing a large book. The way to mark an index entry is to select the text, then press the key combination Shift+Alt+X, or on the Menu go to Insert, Index and Tables, Mark Entry. I would rather have this in a single key, such as F12.

My first try was to select a word, such as 'Beverley', in "Beverley is a market town in the East Riding of Yorkshire. I then recorded in a macro the menu route. I then looked at the recorded macro, it looked like this:

========================
Sub indexing()

ActiveWindow.ActivePane.View.ShowAll = True
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:="Beverley" _
, EntryAutoText:="Beverley", CrossReference:="", CrossReferenceAutoText:= _
"", BookmarkName:="", Bold:=False, Italic:=False
End Sub
========================

I can now assign this macro to the F12 key, so far no problem.

Of course, I cannot invoke this macro for every place I want to index, as each one would say 'Beverley'. I think I need to store the selected text into a variable, then replace the references to Beverley in the macro with the variable. Have I got it right?

If anyone could fill in the missing bits of code I wuld be most grateful.

Regards, and Best Wishes for Christmas and the New Year,

Wibs

[pinmaster]

Hi, I'm not an expert but try this:

Sub indexing()

ActiveWindow.ActivePane.View.ShowAll = True
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:=Selection _
, EntryAutoText:=Selection, CrossReference:="", CrossReferenceAutoText:= _
"", BookmarkName:="", Bold:=False, Italic:=False
End Sub

to assing a key to your macro go to Tools/Customize/Keyboard (bottom) then select "macros" from the list on the left then select your macro from the Macros list and assing your key.

Hope this helps!
JG

[David Biddulph]

"Wibs" <[email protected]> wrote in message
news:[email protected]...
>
> OK, this isn't Excel, it's Word, but there is no forum for Word
> comparable to this forum for Excel, and as the problem is really VBA I
> thought, heh, give it a try.
> ...

If the subject is Word & VBA, what about news:microsoft.public.word.vba ?
There are numerous other MS Word newsgroups too.
--
David Biddulph

[David Biddulph]

"David Biddulph" <david(dot)biddulph(at)baesystems.com> wrote in message
news:[email protected]...
> "Wibs" <[email protected]> wrote in
message
> news:[email protected]...
> >
> > OK, this isn't Excel, it's Word, but there is no forum for Word
> > comparable to this forum for Excel, and as the problem is really VBA I
> > thought, heh, give it a try.
> > ...
>
> If the subject is Word & VBA, what about news:microsoft.public.word.vba ?

.... or microsoft.public.word.vba.general ... or another of the same family ?

> There are numerous other MS Word newsgroups too.
--
David Biddulph