Endnotes
In older versions, the same keystroke Alt+Ctrl+D inserted a footnote, and
took you back to the text.
It stopped working at some time.
You can override the built-in command with your own macro to re-establish
that nice behaviour:
Sub InsertEndnoteNow()
' hijacks the built-in InsertEndnoteNow,
' Keystroke: Alt+Ctrl+D
If Selection.StoryType = wdEndnotesStory Then
' return to main text:
With ActiveWindow
Select Case .ActivePane.View.Type
Case wdPrintView, wdReadingView, _
wdWebView, wdPrintPreview
.View.SeekView = wdSeekMainDocument
Case Else
.ActivePane.Close
End Select
End With
If Selection.Characters.Last.Style = _
ActiveDocument.Styles(wdStyleEndnoteReference) Then
Selection.Move Unit:=wdCharacter, Count:=1
End If
Else
' insert endnote:
Selection.Endnotes.Add Range:=Selection.Range
End If
End Sub
A similar macro works for footnotes (Alt+Ctrl+F).
Regards,
Klaus
|