Word footnotes and track changes problem

macropod · #1 04-12-2011, 12:49 AM

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

Carnegie · #2 04-19-2011, 11:07 PM

Hello

Sorry, been out of action for a few days... Afraid the macro hasn't done the trick. Unless you have any more tricks up your sleeve, I'll just have to hope that miraculously, once the tracked changes have been accepted, it all goes right. Thanks for trying, though.
C.

macropod · #3 04-19-2011, 11:35 PM

Quote:

Originally Posted by Carnegie

I'll just have to hope that miraculously, once the tracked changes have been accepted, it all goes right

But previously you said:

Quote:

the text came to me "clean" with no tracked changes. Yet still there was the jump in sequence in the original.

The document can't both be "clean" with no tracked changes AND needing tracked changes to be accepted.

Carnegie · #4 04-20-2011, 04:17 AM

Hello again

The thing is, I'm a book editor. When the "typescript" came to me it had no tracked changes, but I have introduced tracked changes so that the author can see what I've done. The "typescript's" footnote numbering was already corrupted when I got it. That's why it would be miraculous if it rectified itself when the tracked changes are accepted!

C.

lezly · #5 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.

macropod · #6 03-10-2017, 11:18 PM

Quote:

Originally Posted by lezly

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.

I don't understand what you mean by any of this.

lezly · #7 03-11-2017, 09:20 AM

xxxxxxxxxx

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problem with Footnotes	charlotte	Word	1	04-07-2010 04:35 PM
How To Track Clicks from your MS Word Resume (or other Word Doc) using a URL shortene	dsohigian	Word	0	01-05-2010 01:05 PM
Word 2003 Track Changes	senthilkumarabi	Word	0	12-10-2009 04:28 AM
Track changes and comments in word xp ( 2002)	BeRsErK	Word	0	11-11-2009 04:05 AM
Protected Word docs showing track changes	Richard H	Word	0	11-25-2008 10:18 AM