Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim lngIndex As Long
  Set oRng = ActiveDocument.StoryRanges(wdFootnotesStory)
  For lngIndex = oRng.Bookmarks.Count To 1 Step -1
    oRng.Bookmarks(lngIndex).Delete
  Next
lbl_Exit:
  Exit Sub
End Sub