AuthenticView.Selection
See also
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
' ---------------------------------------
' VBScript
' ---------------------------------------
Dim objAuthenticView
Set objAuthenticView = objPlugin.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