Word: Convert smart endnotes into dumb ones

joey1211 · 26 Jun 2017 at 14:57

I need to do this in Word 2003 so that when I paste the endnotes into a separate document, the numbers don't all turn into '1'. I've found this macro online but it's failing to run. "Compile error: Invalid Outside Procedure"

Any ideas?

Code:

' Macro created 29/09/99 by Doug Robbins to replace footnotes with textnotes
at end of document

' to replace the footnote reference in the body of the document with a
superscript number.

'

Dim afnote As Endnote

For Each afnote In ActiveDocument.footnotes

ActiveDocument.Range.InsertAfter vbCr & afnote.Index & vbTab &
afnote.Range

afnote.Reference.InsertBefore "a" & afnote.Index & "a"

Next afnote

For Each afnote In ActiveDocument.Footnotes

afnote.Reference.Delete

Next afnote

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

joey1211 · 27 Jun 2017 at 14:08

No, I don't think it was. Have done so now and getting the following:

Run-time error '13':
Type mismatch

On clicking OK, it takes me back into Visual Basic Editor and highlights the first line in yellow

"For Each afnote In ActiveDocument.Footnotes"

joey1211 · 27 Jun 2017 at 15:34

Thanks Simon. The only problem is that is stripping the italics out.

joey1211 · 29 Jun 2017 at 12:28

Many thanks for that Simon. Much appreciated. It's failing on the 18th line:

'rng.PasteAndFormat (wdFormatOriginalFormatting)'

joey1211 · 29 Jun 2017 at 13:44

Run-time error '4198': Command failed

I've tried it on a document with only two endnotes and it worked fine. The original document has 747

joey1211 · 30 Jun 2017 at 23:21

Thanks Simon

It's been hectic at work the last few days. Will try the hack next week.