Microsoft Office Forums - View Single Post - [Solved] Error on macro to insert endnotes on Mac

mbk · 12-13-2012, 07:18 AM

I use Word 14.2.3 for Mac under OS X 10.7.5 (Lion). I want a macro that inserts an endnote into a Word document, using Arabic numbering. I recorded such a macro, but when I run it keep getting Run-time error '4605' .
Help, anyone?

Here is the code:

Code:

Sub InsertEndnote()
'
' InsertEndnote Macro
'
'
With Selection
  With .EndnoteOptions
    .Location = wdEndOfDocument
    .NumberingRule = wdRestartContinuous
    .StartingNumber = 1
    .NumberStyle = wdNoteNumberStyleArabic
  End With
  .Endnotes.Add Range:=Selection.Range, Reference:=""
End With
End Sub