footnotes macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jean-Paul Darcis - 23 Sep 2007 19:16 GMT

Hi,

I found this interesting macro on
http://word.mvps.org/FAQS/MacrosVBA/UnSuperscptFnotes.htm.

Sub InsertFootnote()

ActiveDocument.Footnotes.Add Range:=Selection.Range

With Selection
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter "." & vbTab
.Collapse wdCollapseEnd
End With

End Sub

However, it does not seem to work with Word 2003.

Does anybody know why and how to correct it? Yes, I did ask the question
on the MVP site ...

Regards

Signature

*-*-*-*-*-*-*-*-*-*
Jean-Paul Darcis
Keep your documents and emails lean and efficient!
Focus on the content, not on fluff, and zip!
*-*-*-*-*-*-*-*-*-*

Reply to this Message

Graham Mayor - 24 Sep 2007 06:37 GMT

Change the name to

Sub InsertFootnoteNow()

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

> Hi,
>
[quoted text clipped - 20 lines]
>
> Regards

Reply to this Message

Jean-Paul Darcis - 24 Sep 2007 13:31 GMT

Thanks!

Signature

*-*-*-*-*-*-*-*-*-*
Jean-Paul Darcis
Keep your documents and emails lean and efficient!
Focus on the content, not on fluff, and zip!
*-*-*-*-*-*-*-*-*-*

Reply to this Message