Navigate back to Footnote from the Keyboard

[e125]

Version of Word: 2003. I insert several hundreds footnotes in my document. I
would like to know what is the best way to navigate back to the body of the
text where the footnote was pleased---without using the mouse. I would like
to execute this command from the keyboard.

Any suggestions, macros etc would be much appreciated.

 

[Jay Freedman]

Version of Word: 2003. I insert several hundreds footnotes in my document. I
would like to know what is the best way to navigate back to the body of the
text where the footnote was pleased---without using the mouse. I would like
to execute this command from the keyboard.

Any suggestions, macros etc would be much appreciated.

Try the GoBack command, Shift+F5. It remembers up to three previous editing
positions, one of which may be the position where the Insert > Footnote command
was given.

 

[Klaus Linke]

Version of Word: 2003. I insert several hundreds footnotes in my document.
I
would like to know what is the best way to navigate back to the body of
the
text where the footnote was pleased---without using the mouse. I would
like
to execute this command from the keyboard.

Any suggestions, macros etc would be much appreciated.

You could put the macro below into your Normal template.
Then, you can use the same keyboard shortcut Alt+Ctrl+F both to create the
footnote, and to return to the text when you're done.

That is the way the built-in command used to work in older versions, until
it was broken.

Regards,
Klaus


Sub InsertFootnoteNow()
' Replaces built-in command InsertFootnoteNow,
' Built-in 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

 

[e125]

Thank you, that is exactly what I was looking for.