How to keep the end note numberings permanently
Doug Robbins has posted a macro that does this. You may want to try it
on a copy of the document first:
Sub ReplaceEndnotes()
' Macro created 29/09/99 by Doug Robbins to replace endnotes
'with textnotes
'at end of document
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.Replacement.Font
.Superscript = True
End With
With Selection.Find
.Text = "(a)([0-9]{1,})(a)" 'Use ";" instead of ","
'if you're using comma as a
'decimal sign.
.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
--
Stefan Blom
Microsoft Word MVP
" roland" wrote in message
ups.com...
I have used the Insert Endnote facility to insert numbered
references
at the end of a document. I know want to split the manuscript into
two
separate files, one with the text and another with the references.
Is
it possible to keep the endnote numbers in the text and the
reference
file? I learned to do this for the crossreferences by pressing ctrl-
shift-F9. I want a similar solution for the end note numbers.
|