Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Using a variable named curSel to restore the selection it collapses, unless collapsing the selection leaves the selection at an end-o
Sub select()
    Dim curSel
    With Documents("yourDocument.doc")
        If Selection.Type <> wdSelectionIP Then
            Set curSel = Selection.Range
            Selection.Collapse Direction:=wdCollapseStart
        End If
    End With
End Sub