AuthenticRange.SelectNext
Methode: SelectNext (eKind als SPYAuthenticElementKind) als AuthenticRange
Beschreibung
Wählt das Element vom Typ eKind nach dem aktuellen Ende 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. |
2003 | Das Ziel liegt hinter dem Ende 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 word-by-word
' --------------------------------------------
DimobjAuthenticView
' we assume that the active document is open in authentic view mode
SetobjAuthenticView = Application.ActiveDocument.AuthenticView
DimobjRange
SetobjRange = objAuthenticView.DocumentBegin
DimbEndOfDocument
bEndOfDocument = False
OnErrorResume Next
WhileNotbEndOfDocument
objRange.SelectNext(spyAuthenticWord).Select
If((Err.number - vbObjecterror) = 2003) Then
bEndOfDocument = True
Err.Clear
ElseIf(Err.number <> 0) Then
Err.Raise ' forward error
EndIf
Wend