AuthenticRange.LastXMLDataOffset
Eigenschaft: LastXMLDataOffset als Long
Beschreibung
Setzt oder ruft den Versatz der Cursorposition innerhalb des Elements LastXMLData für das Ende des Bereichs ab.
Die Versatzpositionen basieren auf den von der Eigenschaft Text zurückgegebenen Zeichen und beginnen mit 0. Verwenden Sie beim Definieren eines neuen Versatzes -1, um den Versatz an die letzte mögliche Position im Element zu setzen. Beachten Sie bitte besondes die folgenden Fälle:
•Die Textform von Einträgen in Auswahllisten, Kontrollkästchen und ähnlichen Steuerelementen kann anders aussehen, als angezeigt. Zwar basiert der Datenversatz auf diesem Text, doch gibt es nur zwei gültige Positionen für den Versatz, eine am Anfang und eine am Ende des Eintrags. Wenn Sie versuchen, den Versatz irgendwo mitten im Eintrag zu positionieren, hat dies zur Folge, dass der Versatz an das Ende des Eintrags gesetzt wird.
•Die Textform von XML-Entities kann sich in ihrer Länge von der Darstellung auf dem Bildschirm unterscheiden. Der Versatz basiert auf der Textform.
Wenn LastXMLData / LastXMLDataOffset eine Position vor dem aktuellen FirstXMLData / FirstXMLDataOffset wählt, wird zweiteres an die neue Endposition verschoben.
Fehler
2001 | Das Authentic-Bereichsobjekt oder das damit in Zusammenhang stehende Ansichtsobjekt ist nicht gültig. |
2005 | Es wurde ein ungültiger Versatz definiert. Für den Rückgabeparameter wurde eine ungültige Adresse angegeben. |
Beispiele
' ---------------------------------------------
' Scripting environment - VBScript
' Select the complete text of an XMLData element
' using XMLData based selection and ExpandTo
' ---------------------------------------------
DimobjAuthenticView
' we assume that the active document is open in authentic view mode
SetobjAuthenticView = Application.ActiveDocument.AuthenticView
' first we use the XMLData based range properties
' to select all text of the first XMLData element
' in the current selection
DimobjRange
SetobjRange = objAuthenticView.Selection
objRange.FirstXMLDataOffset = 0 ' start at beginning of element text
objRange.LastXMLData = objRange.FirstXMLData ' select only one element
objRange.LastXMLDataOffset = -1 ' select till its end
' the same can be achieved with the ExpandTo method
DimobjRange2
SetobjRange2 = objAuthenticView.Selection.ExpandTo(spyAuthenticTag)
' were we successful?
IfobjRange.IsEqual(objRange2) Then
objRange.Select()
Else
MsgBox "Ooops"
EndIf