AuthenticRange.SelectPrevious
Methode: GotoPrevious (eKind als SPYAuthenticElementKind) als AuthenticRange
Beschreibung
Wählt das Element vom Typ eKind vor dem aktuellen Anfang des Bereichs aus. Die Methode gibt 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.SelectPrevious(spyAuthenticTag).Select
If ((Err.number - vbObjecterror) = 2004) Then
bBeginOfDocument = True
Err.Clear
ElseIf (Err.number <> 0) Then
Err.Raise ' forward error
End If
Wend