Macro for Endnotes

Question

Greetings!

Because I am unable to create a macro by myself that can do the following, I am asking for your help.

I need a MS Word 2010 macro that will

1. search for an endnote (and there are many of them in my document),
2. copy the entire contents of the endnote,
3. insert the endnote contents into parentheses and
4. delete the endnote, as follows:

Before macro is run:

Four score and seven years ago,1 our forefathers ...

---

1 that is, 87 years ago

After macro is run:

Four score and seven years ago, (that is, 87 years ago) our forefathers ...

Then the macro will continue and search for the next endnote, and do the same until it reaches the end of the document.

I would deeply appreciate your help in this matter.

Answer 1

The following commands will do what you are after:

    Dim aendnote As Endnote

    For Each aendnote In ActiveDocument.Endnotes

        With aendnote

            .Reference.InsertBefore "(" & .Range & ")"

            .Reference.Delete

        End With

    Next aendnote

Answer 2

Are you sure you're working with endnotes, and not footnotes?

Answer 3

Mr Robbins, I did everything what you said. I'm sure the problem is staring me in the fact. I'll keep trying.

Answer 4

It works as intended here.

What did you do with the code?

See the article "What do I do with macros sent to me by other newsgroup readers to help me out?” at:

http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

Answer 5

Thank you, Mr. Robbins, but could you take one more look at the code? I tried it but nothing happened. Obviously I am doing something wrong.