Word footnote numbering problem

[Christian Ragnarsson]

Hi!

I have recieved a word document where the footnote numbering in the text
doesn't match the numbers in the footnote list. Currently I have the
footnotes at the bottom of the page. If i right-click on a footnote in the
list and select "go to footnote" (could be "jump to" I have a swedish
version so...) the cursor jumps to the correct footnote in the text
indicating that the reference is right. The problem is that the numbers
don't match. I've tried selecting the entire document and updating with F9
but it doesn't seem to help.

The author of the document said that it was originally a word 97 document
that was opened in word 3.1, saved (then possibly opened in word 97 and
saved again) and now I'm trying to fix it using word xp.

//Christian Ragnarsson

 

[Doug Robbins - Word MVP]

Hi Christian,

Without the document that is displaying the problem, it is had to test
anything, but see if running a macro that contains the following code sorts
out the problem:

Dim afn As Footnote
For Each afn In ActiveDocument.Footnotes
afn.Reference = afn.Reference
afn.Range = afn.Range
Next afn

Make sure you that you have a copy of the document before running it,
because it might only make things worse <g>

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Christian Ragnarsson]

Hi Christian,

Hi Doug, thanks for your quick reply

Without the document that is displaying the problem, it is had to test
anything, but see if running a macro that contains the following code sorts
out the problem:

Dim afn As Footnote
For Each afn In ActiveDocument.Footnotes
afn.Reference = afn.Reference
afn.Range = afn.Range
Next afn

I'm not really accustomed to dealing with macros, but I tried this:
1. went to macros screen (alt + F8)
2. Typed "test" for macro name and choose create
3. Pasted the code between the sub test/end sub lines
4. Closed the vb editor

When I try to run the macro it gives me a (run-time?) error '5825' saying
"the object has been removed" or something like that. It stops on the
second last line (afn.Range = afn.Range)

Make sure you that you have a copy of the document before running it,
because it might only make things worse <g>

Yep! Did that

 

[Doug Robbins - Word MVP]

Hi Christian,

I guess that error is just confirming the problem that you had in the first
place.

If you want to send me a copy of the document, I will take a look and see if
there is some other way.

Regards,
Doug Robbins - Word MVP