AuthenticRange.FirstTextPosition
Siehe auch
Eigenschaft: FirstTextPosition als Long
Beschreibung
Setzt oder holt den am weitesten links befindlichen Textpositionsindex des Bereichsobjekts. Dieser Index ist immer kleiner oder gleich der LastTextPosition. 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 FirstTextPosition auf einen Wert setzen, der größer ist als die aktuelle LastTextPosition, wird LastTextPosition auf den Wert der neuen FirstTextPosition 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
' we assume that the active document is open in authentic view mode
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