AuthenticRange.FirstTextPosition
Propiedad: FirstTextPosition as Long
Descripción
Establecer u obtener el índice de posición del texto situado más a la izquierda del objeto de intervalo. Este índice siempre es menor o igual que LastTextPosition. La indización empieza por 0 al principio del documento e incrementa con cada nueva posición que pueda ocupar el cursor de texto. Incrementar la posición de prueba 1 punto tiene el mismo efecto que la tecla a la derecha del cursor. Reducir la posición de prueba 1 punto tiene el mismo efecto que la tecla a la izquierda del cursor.
Si para FirstTextPosition define un valor mayor que el actual LastTextPosition, LastTextPosition se establece en el nuevo FirstTextPosition.
CONSEJO: tenga cuidado al utilizar las posiciones del cursor de texto porque es una operación costosa comparada con el posicionamiento del cursor basado en XMLData.
Errores
2001 | El objeto de intervalo o su objeto relacionado no es válido. | |
2005 | La dirección indicada para el parámetro de devolución no es válida. | |
2006 | Se indicó una posición del texto situada fuera del documento. |
Ejemplos
' ---------------------------------------
' VBScript
' ---------------------------------------
Dim objAuthenticView
' imaginamos que el documento activo está abierto en la vista Authentic
Set objAuthenticView = objPlugin.AuthenticView
nDocStartPosition = objAuthenticView.DocumentBegin.FirstTextPosition
nDocEndPosition = objAuthenticView.DocumentEnd.FirstTextPosition
' creamos un intervalo que selecciona todo el documento
' de manera eficaz
Dim objRange
' primero tenemos que obtener un objeto de intervalo (cualquiera)
Set objRange = objAuthenticView.DocumentBegin
objRange.FirstTextPosition = nDocStartPosition
objRange.LastTextPosition = nDocEndPosition
' comprobamos si lo hemos hecho correctamente
If objRange.isEqual(objAuthenticView.WholeDocument) Then
MsgBox "Funcionó la prueba usando posicionamiento directo del cursor de texto"
Else
MsgBox "Ooops!"
End If