AuthenticRange.LastTextPosition

www.altova.com Dieses Kapitel drucken Vorherige Seite Eine Ebene nach oben Nächste Seite

Startseite >  Benutzerreferenz > Objekte > AuthenticRange >

AuthenticRange.LastTextPosition

Siehe auch

 

Eigenschaft: LastTextPosition als Long

 

Beschreibung

Setzt oder holt den am weitesten rechts befindlichen Textpositionsindex des Bereichsobjekts. Dieser Index ist immer größer oder gleich der FirstTextPosition. Die Indizierung beginnt am Anfang des Dokuments mit 0 und erhöht sich schrittweise mit jeder neuen Position, an der sich der Textcursor befinden kann. Eine Erhöhung der Textposition um 1 hat dieselbe Wirkung wie die Rechtspfeil-Taste. Eine Verringerung der Textposition um den Wert 1 hat dieselbe Wirkung wie die Linkspfeil-Taste.

 

Wenn Sie LastTextPosition auf einen Wert setzen, der kleiner ist als die aktuelle FirstTextPosition, wird FirstTextPosition auf den Wert der neuen LastTextPosition gesetzt.

 

HINWEIS: Verwenden Sie Textcursorpositionen mit Vorsicht, da dies im Vergleich zur Cursorpositionierung auf Basis von XMLData ein aufwändiger Vorgang ist.

 

Fehler


2001

Das Authentic Range-Objekt oder das dazugehörige View-Objekt ist nicht mehr gültig.


2005

Für den zurückgegebenen Parameter wurde eine ungültige Adresse angegeben.


2006

Es wurde eine Textposition außerhalb des Dokuments angegeben

 

Beispiele

' ---------------------------------------

'                VBScript

' ---------------------------------------

Dim objAuthenticView

Set objAuthenticView = objPlugin.AuthenticView

 

nDocStartPosition = objAuthenticView.DocumentBegin.FirstTextPosition

nDocEndPosition = objAuthenticView.DocumentEnd.FirstTextPosition

 

' let's create a range that selects the whole document

' in an inefficient way

Dim objRange

' we need to get a (any) range object first

Set objRange = objAuthenticView.DocumentBegin

objRange.FirstTextPosition = nDocStartPosition

objRange.LastTextPosition = nDocEndPosition

 

' let's check if we got it right

If objRange.isEqual(objAuthenticView.WholeDocument) Then

 MsgBox "Test using direct text cursor positioning was ok"

Else

 MsgBox "Ooops!"

End If

 


© 2019 Altova GmbH