AuthenticRange.FirstXMLDataOffset
Propiedad: FirstXMLDataOffset as Long
Descripción
Establecer u obtener el desplazamiento de la posición del cursor dentro del elemento FirstXMLData para el principio del intervalo. Las posiciones de desplazamiento se basan en los caracteres que devuelve la propiedad Text y empiezan en la posición 0. Cuando establezca un desplazamiento nuevo, utilice -1 para establecer el desplazamiento en la última posición posible del documento. En estos casos es recomendable prestar particular atención:
•La forma textual de las entradas en cuadros combinados, casillas de verificación y controles similares pueden diferir de lo que aparece en pantalla. Aunque el desplazamiento de los datos se basa en este texto, solamente hay dos posiciones de desplazamiento válidas: una al principio y otra al final de la entrada. Si intenta establecer el desplazamiento en cualquier otra posición en el medio de la entrada, el desplazamiento se establece al final.
•La forma textual de las entidades XML pueden diferir en longitud de su representación en pantalla. El desplazamiento está basado en esta forma textual.
Si FirstXMLData / FirstXMLDataOffset selecciona una posición situada después del actual LastXMLData / LastXMLDataOffset, este último se mueve hasta la posición de inicio nueva.
Errores
2001 | El objeto de intervalo o su objeto relacionado no es válido. | |
2005 | El desplazamiento indicado no es válido. La dirección indicada para el parámetro de devolución no es válida. |
Ejemplos
' ---------------------------------------------
' VBScript
' Seleccionar todo el texto de un elemento XMLData
' usando selección basada en XMLData y ExpandTo
' ---------------------------------------------
Dim objAuthenticView
Set objAuthenticView = objPlugin.AuthenticView
' primero usamos las propiedades de intervalo basadas en XMLData
' para seleccionar todo el texto del primer elemento XMLData
' de la selección actual
Dim objRange
Set objRange = objAuthenticView.Selection
objRange.FirstXMLDataOffset = 0 ' empezar al principio del elemento text
objRange.LastXMLData = objRange.FirstXMLData ' seleccionar un elemento solamente
objRange.LastXMLDataOffset = -1 ' seleccionar hasta el final
' esto mismo se puede hacer con el método ExpandTo
Dim objRange2
Set objRange2 = objAuthenticView.Selection.ExpandTo(spyAuthenticTag)
' ¿lo hemos conseguido?
If objRange.IsEqual(objRange2) Then
objRange.Select()
Else
MsgBox "Ooops"
End If