[Jeff Mathewson[_2_]]

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.

[Stefan Blom]

You can modify
(http://www.shaunakelly.com/word/styl...ifyAStyle.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/...scptFnotes.htm.

--
Stefan Blom
Microsoft Word MVP


"Jeff Mathewson" wrote in message
...
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.

[Stefan Blom]

"Stefan Blom" wrote in message
...
You can modify
(http://www.shaunakelly.com/word/styl...ifyAStyle.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

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

--
Stefan Blom
Microsoft Word MVP




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

--
Stefan Blom
Microsoft Word MVP


"Jeff Mathewson" wrote in message
...
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.