Microsoft Office Forums - View Single Post

Stefan Blom · 01-18-2012, 04:52 PM

You will have to convert the endnotes to text before you can copy them into a separate document. Doug Robbins has suggested the following macro in the old Word newsgroups (I don't know if it works for MacWord, though):

Code:

Sub ConvertEndNotes()
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