Go To Index Macro

Phil H · #1 11-18-2014, 11:48 AM

I need a macro that I can attach to a button on the QAT that sends me to the index. Is there such a macro out there somewhere?

gmaxey · #2 11-18-2014, 11:57 AM

Something like this perhaps:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFld As Word.Field
  For Each oFld In ActiveDocument.Range.Fields
    If oFld.Type = wdFieldIndex Then
      oFld.Select
    End If
    Exit For
  Next oFld
    
End Sub

Phil H · #3 11-18-2014, 12:26 PM

Greg, Thanks for your reply. This didn't work. What I need is - wherever I am in a document, if I click the button in the QAT, it takes me to the index at the end of the document. I set this up and it does nothing when I click the macro icon.

gmaxey · #4 11-18-2014, 12:34 PM

Phil,

I had the Exit For in the wrong place. Sorry:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFld As Word.Field
  For Each oFld In ActiveDocument.Range.Fields
    If oFld.Type = wdFieldIndex Then
      oFld.Select
      Exit For
    End If
    
  Next oFld
    
End Sub

fumei · #5 11-18-2014, 07:54 PM

Or just a bookmark. That is kind of what they are good for. That way you are not iterating through possible fields.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create index	gtpt	Word	1	03-07-2014 07:34 PM
Need help with Index formula	gbaker	Excel	7	02-07-2014 06:34 AM
Formatting a second index	Lebber	Word	3	08-05-2013 02:13 AM
Adding an Index	savo	Word	1	04-17-2013 06:16 PM
Index switches	cksm4	Word VBA	2	02-03-2011 07:21 AM