And to add what Bob said: Double-clicking on the footnote reference will
take you back to the footnote in the text.
If you copy the macro below into your Normal.dot, you can use the same
shortcut Ctrl+Alt+F both to create a footnote, and to return to the text
once you are finished.
Regards,
Klaus
Sub InsertFootnoteNow()
' Replaces the built-in command InsertFootnoteNow,
' Keyboard shortcut: Alt+Ctrl+F
If Selection.StoryType = wdFootnotesStory 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(wdStyleFootnoteReference) Then
Selection.Move Unit:=wdCharacter, Count:=1
End If
Else
' insert footnote:
Selection.Footnotes.Add Range:=Selection.Range
End If
End Sub