Footnotes after Track Changes

Guessed · #1 02-02-2021, 03:45 PM

Cynd

Looking at the file you posted, the old footnotes appear to have been converted to regular content and there are autonumbers on those paragraphs. Looking at the lack of styles and the entry for #9 which has a couple of extra paragraphs inserted (eg between South America), I would guess that the file was converted from PDF and edited in Word.

This is a disaster and I would presume that the complete doc pre-acceptance of tracked revisions already has lost the footnote functionality. If that is the case, the only solution is to redo all the footnotes. I had a fiddle with a concept macro to do this and it might do most of the work for you. It does fall down when an ex-footnote has multiple paragraphs like the #9 I talked about above. If you remove those extra paragraphs before running the macro you will be happier with the result.

This macro should be run in a COPY of the document after selecting the block of ex-footnotes.

Code:

Sub ReDoFootnotes()
  Dim aPar As Paragraph, aRng As Range, i As Integer, iID As Integer
  Dim aRng2 As Range, aFN As Footnote, aRngMove As Range
  
  Set aRng = Selection.Range
  For i = aRng.Paragraphs.Count To 1 Step -1
    Set aPar = aRng.Paragraphs(i)
    iID = aPar.Range.ListFormat.ListValue
    Set aRng2 = ActiveDocument.Range(0, aRng.Start)
    With aRng2.Find
      .ClearFormatting
      .Font.Superscript = True
      .Text = iID
      .Forward = False
      If .Execute Then
        aRng2.Text = ""
        Set aFN = ActiveDocument.Footnotes.Add(Range:=aRng2)
        Set aRngMove = aPar.Range
        aRngMove.End = aRngMove.End - 1
        aFN.Range.FormattedText = aRngMove
        aPar.Range.Delete
      End If
    End With
  Next i
End Sub

Cynd · #2 02-02-2021, 04:47 PM

Hello Guessed,

Thank you for the reply. Yes, as I recall I did convert the Word file from a PDF file that was used for first submission. Oops!

Thank you for the macro, I will try it and see if it works, but I may reinsert the footnotes manually as well.

Thanks for the help. At least the mystery is solved.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Request for a macro to move footnotes (not formatted as footnotes) from end of page to end of doc	Pluckedchicken	Word VBA	0	09-03-2020 05:21 AM
How to change superscript footnotes into genuine Word footnotes	Knounte29	Word VBA	41	01-16-2020 04:48 PM
Word footnotes and track changes problem	Carnegie	Word	14	03-13-2017 01:31 AM
creating manuscript w/footnotes from separate documents containing chapters with footnotes-word 2010	Dottie	Publisher	0	02-19-2017 03:18 PM
Track Changes doesn't track Change Case changes	wardw	Word	3	10-28-2012 05:31 PM