This is a handy macro to make navigation among numerous functions a little bit easier. I'm using Alt-Grey+ hotkey for this purpose but you can define your favorite.
sub BookmarkOut()
set sel = ActiveDocument.Selection
if sel.Text = "" then
sel.StartOfLine
sel.EndOfLine dsExtend
line_text = sel.Text
sel.StartOfLine
else
line_text = sel.Text
end if
PrintToOutputWindow ActiveDocument.FullName
+"("+cstr(sel.CurrentLine)+") : "+line_text
end sub
(2.2000)