Hi Carnegie,
This is beginning to sound like someone's given up on the auto numbering and has used their own numbering instead. Either that or they've just added more paragraphs to an existing footnote, with 'footnote' numbers preceding those paragraphs and corresponding 'footnote' numbers in the body of the document.
Assuming it's the former, you should be able to fix the numbering with the following macro:
Code:
Sub FootnoteFix()
Dim i As Long, FtNtPos As Range
Application.ScreenUpdating = False
With ActiveDocument
With .Range.FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
For i = .Footnotes.Count To 1 Step -1
Set FtNtPos = .Footnotes(i).Reference
FtNtPos.Collapse (wdCollapseEnd)
.Footnotes.Add Range:=FtNtPos
FtNtPos.End = FtNtPos.End + 1
FtNtPos.Footnotes(1).Range = .Footnotes(i).Range
.Footnotes(i).Reference.Delete
Next
End With
Application.ScreenUpdating = True
End Sub