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