Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub FocusField()
ActiveDocument.Bookmarks("Text35Orig").Range.Fields(1).Result.Select
End Sub
Sub Document_Close()
If ActiveDocument.Bookmarks.Exists("StoppedHere") = False Then
ActiveDocument.Bookmarks.Add _
Name:="StoppedHere", Range:=Selection.Range
End If
End Sub
'
Sub Document_Open()
If ActiveDocument.Bookmarks.Exists("StoppedHere") = True Then
Selection.GoTo what:=wdGoToBookmark, Name:="StoppedHere"
ActiveDocument.Bookmarks("StoppedHere").Delete
End If
End Sub
Sub Here()
Dim X As Long
Selection.Collapse Direction:=wdCollapseStart
X = Selection.Start
Msgbox "Cursor is at character space " & X & _
". Start of document = 0."
End Sub