Automatically Separating a Footnote from the Number

S

Suzette

I would like to be able to automatically through styles or whatever insert a
footnote and have the space between the number and the actual text
automatically set. Is there a way to do this. I have tried using Tab stops,
but if I add a new footnote, the text is automatically right up against the
number and I want to have my template available for general use so people
don't have to ask how far in the footnote text should sit.
 
S

Stefan Blom

Define a hanging indent for your Footnote Text style. Then add the following
two macros to your Normal template (which is called normal.dot if you are
using Word 97-2003 or normal.dotm if you are using Word 2007):

Sub InsertFootnoteNow()

ActiveDocument.Footnotes.Add Range:=Selection.Range

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

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
ActiveWindow.ScrollIntoView Selection.Range
End Sub

If, in addition, you want the footnote number *not* to be superscript, edit
the macros to remove the single quotation mark (') before the line
..Paragraphs(1).Range.Font.Reset.

See also http://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top