AuthenticRange.GotoPrevious
Methode: GotoPrevious (eKind als SPYAuthenticElementKind) als AuthenticRange
Beschreibung
Setzt den Bereich auf den Beginn des Elements vom Typ eKind, welches sich vor dem Beginn des aktuellen Bereichs berfindet. Die Methode geibt das geänderte Bereichsobjekt zurück.
Fehler
2001 | Das Authentic-Bereichsobjekt oder das damit in Zusammenhang stehende Ansichtsobjekt ist nicht mehr gültig. |
2004 | Das Ziel liegt vor dem Anfang des Dokuments. |
2005 | Es wurde eine ungültige Elementart definiert. Für den Rückgabeparameter wurde eine ungültige Adresse angegeben. |
Beispiele
' --------------------------------------------
' Scripting environment - VBScript
' Scan through the whole document tag-by-tag
' --------------------------------------------
Dim objAuthenticView
' we assume that the active document is open in authentic view mode
Set objAuthenticView = Application.ActiveDocument.AuthenticView
Dim objRange
Set objRange = objAuthenticView.DocumentEnd
Dim bBeginOfDocument
bBeginOfDocument = False
On Error Resume Next
While Not bBeginOfDocument
objRange.GotoPrevious(spyAuthenticTag).Select
If ((Err.number - vbObjecterror) = 2004) Then
bBeginOfDocument = True
Err.Clear
ElseIf (Err.number <> 0) Then
Err.Raise ' forward error
End If
Wend