Microsoft Office Forums - View Single Post - [Solved] Word footnotes and track changes problem

lezly · 03-10-2017, 10:34 AM

Quote:

Originally Posted by macropod

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

Thank you so much for this macro. It works on numbering the actual footnote, however, the numbering in the text section of the document is not working correctly. If I come up with a solution, I'll post it.

Oops, taken part of the old footnote number & is including it with the footnote text.

1-9 work perfectly. The problem starts with footnote #10.