Go To Index Macro

[Phil H]

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]

Something like this perhaps:

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]

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]

Phil,

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

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]

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