How do I unlink endnotes but keep numbering in text and ref list?

[oritil]

I need to change references (endnotes) cited in a document from, for example,
3,4,5,6 to 3-6, but the numbers are tied into the endnotes, thus deleting the
endnotes when I change them. How can I detach/unlink the endnotes from the
rest of the document while maintaining the numbering both in text and the
endnotes?

 

[Suzanne S. Barnhill]

Insert all the references as usual, but don't bother with punctuation
between them. Then insert an en dash after the first or before the last.
Then select all but the first and last and format them as Hidden.

 

[oritil]

How do I hide them?

 

[oritil]

How do I format them as hidden?

Insert all the references as usual, but don't bother with punctuation
between them. Then insert an en dash after the first or before the last.
Then select all but the first and last and format them as Hidden.

 

[oritil]

It worked! Thank you.

Insert all the references as usual, but don't bother with punctuation
between them. Then insert an en dash after the first or before the last.
Then select all but the first and last and format them as Hidden.

 

[Suzanne S. Barnhill]

I guess you figured it out! (Format | Font | Hidden or Ctrl+Shift+H)

 

[elize]

It seems you are boffin when it gets to the endnotes! I am anable see an
anwer for the second part of your question: How do I unlink endnotes but
keep numbering in the text as well as the reference list.

 

[Stefan Blom]

To convert endnotes to text you can use this macro by Doug Robbins:

Sub ConvertTheEndNotes()


' Macro created 29/09/99 by Doug Robbins to replace endnotes with
'textnotes
'at end of document and
' to replace the endnote reference in the body of the document with a
'superscript number.
'
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)"
.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


in message
news:[email protected]...