AuthenticRange.SelectNext
Siehe auch
Methode: SelectNext (eKind als SPYAuthenticElementKind) als AuthenticRange
Beschreibung
Wählt das Element vom Typ eKind nach dem aktuellen Bereichsende aus. Die Methode gibt das geänderte Bereichsobjekt zurück.
Fehler
2001 | Das Authentic Range-Objekt oder das dazugehörige View-Objekt ist nicht mehr gültig. | |
2003 | Das Ziel befindet sich hinter dem Ende des Dokuments. | |
2005 | Es wurde ein ungültiger Elementtyp definiert. Für den zurückgegebenen Parameter wurde eine ungültige Adresse angegeben. |
Beispiele
' --------------------------------------------
' VBScript
' Scan through the whole document word-by-word
' --------------------------------------------
Dim objAuthenticView
Set objAuthenticView = objPlugin.AuthenticView
Dim objRange
Set objRange = objAuthenticView.DocumentBegin
Dim bEndOfDocument
bEndOfDocument = False
On Error Resume Next
While Not bEndOfDocument
objRange.SelectNext(spyAuthenticWord).Select
If ((Err.number - vbObjecterror) = 2003) Then
bEndOfDocument = True
Err.Clear
ElseIf (Err.number <> 0) Then
Err.Raise ' forward error
End If
Wend