Freezing Footnote Fields

  • Thread starter Thread starter RobertB
  • Start date Start date
R

RobertB

Is it possible to freeze the numbers of footnotes so that when the footnotes
are copied and pasted into a new document they retain the same numbers?

thank you
 
Is it possible to freeze the numbers of footnotes so that when the footnotes
are copied and pasted into a new document they retain the same numbers?

thank you
Click to expand...

No.

You could change the note numbering to "Custom" and type every number
used into the box.

What is this "bump" thing that started appearing yesterday?
 
To freeze the footnotes, you can convert them to endnotes which can then be
turned into plain text by the following macro (created by Doug Robbins):

***********************
Sub ConvertEndnotesToPlainText()

'Macro by MVP Doug Robbins

Dim aendnote As Endnote

For Each aendnote In ActiveDocument.Endnotes


ActiveDocument.Range.InsertAfter vbCr & aendnote.Index & vbTab & _
aendnote.Range


aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"


Next aendnote


For Each aendnote In ActiveDocument.Endnotes


aendnote.Reference.Delete


Next aendnote


Selection.Find.ClearFormatting


Selection.Find.Replacement.ClearFormatting


With Selection.Find


.Text = "(a)([0-9]{1,})(a)"


.Replacement.Text = "(\2)"


.Forward = True


.Wrap = wdFindContinue


.Format = True


.MatchWildcards = True


End With


Selection.Find.Execute Replace:=wdReplaceAll

End Sub

***********************
 
Back
Top