;494893']Peter,
Thanks for your reply. You helped me notice a mistake. The line with
InsertAfter should include an instruction that adds a tab character:
Sub InsertFootnoteNow()
'Code by Dave Rado, modified by Stefan Blom
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
--
Stefan Blom
Microsoft Word MVP
"Peter T. Daniels" (e-mail address removed) wrote in message
Hi Stefan--
I don't understand macro texts; could you explain where this one is
seeking
and/or inserting a tab character? In many situations that would be
nicer
than the space or the nothing that normally appears after the footnote
reference.
On Tuesday, November 5, 2013 2:55:26 PM UTC-5, Stefan Blom wrote:
-
You can modify the Footnote Text style so that it includes a hanging
indent
and then make use of macros to insert the notes. Use the following
macro
and
store it in the Normal template (for assistance, see
http://www.gmayor.com/installing_macro.htm):
Sub InsertFootnoteNow()
'Code by Dave Rado, modified by Stefan Blom
ActiveDocument.Footnotes.Add Range:=Selection.Range
With Selection
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter ". "
.Collapse wdCollapseEnd
End With
ActiveWindow.ScrollIntoView Selection.Range
End Sub
The macro intercepts the Insert Footnote command on the References tab;
it
does not intercept the Footnote and Endnote dialog box.-
-
"menteith" (e-mail address removed) wrote in message