Footnotes all numbered as zero

[Guest]

I am working on files in Microsoft 2002 that originated with someone else,
and all the footnotes I insert in these files are numbered as zero. When I
try to change the "Start at" number to 1 in the Footnote and Endnote box, I
get the message "Start At must be between 1 and 16383 for this format." How
can I get the footnotes to start at 1 and then to be numbered consecutively?
I appreciate any help you can offer. Thanks!

 

[Doug Robbins]

Try running the following macro on the document:

' Macro created by Doug Robbins to re-insert Footnotes

Dim afnRange As Range, afntext As String, i As Integer
For i = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(i).Reference.Select
Selection.Characters(1).Select
If Not Selection.Style = "Footnote Reference" Then
While Not Selection.Style = "Footnote Reference"
Selection.Collapse wdCollapseStart
Selection.MoveLeft wdCharacter
Selection.Characters(1).Select
Wend
Selection.Delete
End If
Set afnRange = ActiveDocument.Footnotes(i).Range
afntext = afnRange.Text
ActiveDocument.Footnotes(i).Delete
ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=afntext
Next i


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP