Custom formatted footnotes/endnotes

J

Jeff Mathewson

Hello everyone,

Have an issue with footnotes. Need to know if there is a way to create a
custom format for them. We need a something like this:

____ 1 ____ footnote text. with _ being spaces.

Is there such a way to do this in Word?

Thanks,

Jeff.
 
S

Stefan Blom

You can modify
(http://www.shaunakelly.com/word/styles/ModifyAStyle.html) the Footnote
Text style to include the relevant left (or first line) indent. For the
space after the number, set a tab stop or a hanging indent (depending on
what you want).

Then you would have to make use of the following macro to insert your
footnotes:

Sub InsertFootnote()

ActiveDocument.Footnotes.Add Range:=Selection.Range

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

End Sub

The macro is based on one presented in this article:
http://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm.

--
Stefan Blom
Microsoft Word MVP


in message
news:%[email protected]...
 
S

Stefan Blom

in message
You can modify
(http://www.shaunakelly.com/word/styles/ModifyAStyle.html) the Footnote
Text style to include the relevant left (or first line) indent. For the
space after the number, set a tab stop or a hanging indent (depending on
what you want).

Then you would have to make use of the following macro to insert your
footnotes:

Sub InsertFootnote()

ActiveDocument.Footnotes.Add Range:=Selection.Range

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

End Sub
Click to expand...

Correction: Use this code instead:

Sub InsertFootnote()

ActiveDocument.Footnotes.Add Range:=Selection.Range

With Selection
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter vbTab 'No period needed
.Collapse wdCollapseEnd
End With

End Sub
 
Top