AuthenticView.Selection
Propiedad: Selection as AuthenticRange
Descripción
Establecer u obtener la selección de texto actual de la interfaz del usuario.
Errores
2000 | El objeto AuthenticView ya no es válido. | |
2002 | No hay activa ninguna selección de texto. | |
2005 | Se indicó una dirección no válida para el parámetro de devolución. |
Ejemplos
' ---------------------------------------
' VBScript
' ---------------------------------------
Dim objAuthenticView
Set objAuthenticView = objPlugin.AuthenticView
' si estamos al final del documento, volver a comenzar desde el principio
If (objAuthenticView.Selection.IsEqual(objAuthenticView.DocumentEnd)) Then
objAuthenticView.Selection = objAuthenticView.DocumentBegin
Else
' objAuthenticView.Selection = objAuthenticView.Selection.GotoNextCursorPosition()
' o más breve:
objAuthenticView.Selection.GotoNextCursorPosition().Select
End If