Create a keystroke to return to the document from a footnote or e.

When typing a document and adding either footnotes or endnotes, it is
necessary to scroll back to the document when the footnote is typed. I would
like to have a keystroke to return me to the document rather than having to
scroll to get back to where I left off typing.

Jay
Fri Jan 14 11:02:33 CST 2005

Beneficial wrote:
> When typing a document and adding either footnotes or endnotes, it is
> necessary to scroll back to the document when the footnote is typed.
> I would like to have a keystroke to return me to the document rather
> than having to scroll to get back to where I left off typing.

Depending on how many distinct actions you've done in the footnote, the
GoBack shortcut Shift+F5 may get you back to the document (it tracks the
last three edits).

Double-clicking the footnote symbol (number, asterisk, whatever) at the
start of the footnote will always take you to the matching symbol in the
text, and vice versa.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Klaus
Fri Jan 14 13:17:08 CST 2005

"Beneficial" <Beneficial@discussions.microsoft.com> wrote:
> When typing a document and adding either footnotes or endnotes,=20
> it is necessary to scroll back to the document when the footnote is=20
> typed. I would like to have a keystroke to return me to the document=20
> rather than having to scroll to get back to where I left off typing.


Hi,

You can also use a macro, and have the same macro insert the footnote, =
and return to the text -- see below.
That way, you can use the same keyboard shortcut for both.

The InsertFootnoteNow command (Alt+Ctrl+F) used to work like this in =
older versions (before Word2000?).

Greetings,
Klaus


If Selection.StoryType =3D wdFootnotesStory Then
' return to main text:
With ActiveWindow
Select Case .ActivePane.View.Type
Case wdPrintView, wdReadingView, _
wdWebView, wdPrintPreview
.View.SeekView =3D wdSeekMainDocument
Case Else
.ActivePane.Close
End Select
End With
If Selection.Characters.Last.Style =3D _
ActiveDocument.Styles(wdStyleFootnoteReference) Then
Selection.Move Unit:=3DwdCharacter, Count:=3D1
End If
Else
' insert footnote:
Selection.Footnotes.Add Range:=3DSelection.Range
End If