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