AuthenticRange.LastTextPosition

www.altova.com Imprimir este apartado Página anterior Subir un nivel Página siguiente

Inicio >  Referencia > Objetos > AuthenticRange >

AuthenticRange.LastTextPosition

Propiedad: LastTextPosition as Long

 

Descripción

Establecer u obtener el índice de posición del texto situado más a la derecha del objeto de intervalo. Este índice siempre es mayor o igual que FirstTextPosition. 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 LastTextPosition define un valor menor que el actual FirstTextPosition, FirstTextPosition se establece en el nuevo LastTextPosition.

 

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

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

 


© 2019 Altova GmbH