Microsoft Office Forums - View Single Post - Cursor not showing up when running footnote macro

brent chadwick · 04-09-2018, 09:01 AM

Hey guys,
I've been using this macro forever in Mac 2011 to insert specific formatted footnotes. It does not work properly in Mac 2016 when I run the macro with a keyboard shortcut-the cursor does not show up anywhere until you click the page somewhere. However when you run the macro from the visual editor it works like it should. Here's the code-

Code:

Sub InsertFootnote()
ActiveDocument.Footnotes.Add Range:=Selection.Range
With Selection
   .Paragraphs(1).Range.Font.Reset
   .Paragraphs(1).Range.Characters(2) = ""
   .InsertAfter ". " & vbTab
   .Collapse wdCollapseEnd
   Selection.MoveLeft Unit:=wdCharacter, Count:=4
   Selection.TypeText Text:=vbTab
  Selection.MoveRight Unit:=wdCharacter, Count:=4
End With
End Sub

Ideas?