AuthenticView.Selection
Eigenschaft: Selection als AuthenticRange
Beschreibung
Setzt oder ruft die aktuelle Textauswahl auf der Benutzeroberfläche ab.
Fehler
2000 | Das Authentic-Ansichtsobjekt ist nicht mehr gültig. |
2002 | Es ist keine Cursorauswahl aktiv. |
2005 | Für den Rückgabeparameter wurde eine ungültige Adresse angegeben. |
Beispiele
' ---------------------------------------
' Scripting environment - VBScript
' ---------------------------------------
DimobjAuthenticView
' we assume that the active document is open in authentic view mode
SetobjAuthenticView = 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
EndIf