Can someone please tweak my Macro?
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 -- Wibs ------------------------------------------------------------------------ Wibs's Profile: http://www.excelforum.com/member.php...o&userid=28922 View this thread: http://www.excelforum.com/showthread...hreadid=493833 |
Can someone please tweak my Macro?
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 -- pinmaster ------------------------------------------------------------------------ pinmaster's Profile: http://www.excelforum.com/member.php...fo&userid=6261 View this thread: http://www.excelforum.com/showthread...hreadid=493833 |
Can someone please tweak my Macro?
"Wibs" wrote in message
... 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 |
Can someone please tweak my Macro?
"David Biddulph" <david(dot)biddulph(at)baesystems.com wrote in message
... "Wibs" wrote in message ... 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 |
All times are GMT +1. The time now is 08:19 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com