|
Public Function RememberCursorLocation() As Boolean
On Error Resume Next
Selection.Collapse Direction:=wdCollapseStart
If ActiveDocument.Bookmarks.Exists("CursorLocation") Then ActiveDocument.Bookmarks("CursorLocation").DELETE
ActiveDocument.Bookmarks.Add name:="CursorLocation", Range:=Selection.Range
End Function
Public Function ReturnToCursorLocation() As Boolean
If
|