AuthenticView.Selection
Siehe auch
Eigenschaft: Selection als AuthenticRange
Beschreibung
Setzt oder holt die aktuelle Textauswahl auf der Benutzeroberfläche.
Fehler
2000 | Das Authentic View-Objekt ist nicht mehr gültig. | |
2002 | Es ist keine Selektion aktiv. | |
2005 | Für den zurückgegebenen Parameter wurde eine ungültige Adresse angegeben. |
Beispiele
' ---------------------------------------
' 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