Cursor not showing up when running footnote macro

macropod · #1 04-09-2018, 02:48 PM

With the code you're using, the insertion point should show up in the footnote, not in "the page somewhere". Try:

Code:

Sub InsertFootnote()
ActiveDocument.Footnotes.Add Range:=Selection.Range
With Selection.Paragraphs.Last.Range
   .Font.Reset
   .Characters.Last.Previous.Text = ". " & vbTab
   .Characters.Last.Previous.Select
End With
Selection.Collapse wdCollapseEnd
End Sub

Instead of starting each footnote with a tab character before the reference, you really should do a one-off modification of the 'Footnote Text' Style to give it a first-line indent.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Macro not running on exiting legacy drop down menu.	supremegrandruler	Word VBA	5	12-11-2014 11:14 PM
issue in running macro in mac	expert4knowledge	Word VBA	5	08-13-2014 02:33 PM
Macro to find text only footnote numbers	TimFromPhx	Word VBA	7	04-10-2014 07:05 PM
Running a Macro in a protected form	yessmarie	Word VBA	1	05-25-2012 12:04 AM