AuthenticView.Selection
Property: Selection as AuthenticRange
Description
Set or get current text selection in user interface.
Errors
2000 | The authentic view object is no longer valid. |
2002 | No cursor selection is active. |
2005 | Invalid address for the return parameter was specified. |
Examples
' ---------------------------------------
' Scripting environment - VBScript
' ---------------------------------------
Dim objAuthenticView
' we assume that the active document is open in authentic view mode
Set objAuthenticView = Application.ActiveDocument.AuthenticView
' if we are the end of the document, re-start at the beginning
If (objAuthenticView.Selection.IsEqual(objAuthenticView.DocumentEnd)) Then
objAuthenticView.Selection = objAuthenticView.DocumentBegin
Else
' objAuthenticView.Selection = objAuthenticView.Selection.GotoNextCursorPosition()
' or shorter:
objAuthenticView.Selection.GotoNextCursorPosition().Select
End If