AuthenticRange.GotoNext
Método: GotoNext (eKind as SPYAuthenticElementKind) as AuthenticRange
Descripción
Establece el intervalo en el principio del siguiente elemento de tipo eKind. El método devuelve el objeto de intervalo modificado.
Errores
2001 | El objeto de intervalo o su objeto relacionado ya no es válido. | |
2003 | El destino está después del final del documento. | |
2005 | El tipo de elemento indicado no es válido. La dirección indicada para el parámetro de devolución no es válida. |
Ejemplos
' --------------------------------------------
' VBScript
' Explorar todo el documento palabra por palabra
' --------------------------------------------
Dim objAuthenticView
Set objAuthenticView = objPlugin.AuthenticView
Dim objRange
Set objRange = objAuthenticView.DocumentBegin
Dim bEndOfDocument
bEndOfDocument = False
On Error Resume Next
While Not bEndOfDocument
objRange.GotoNext(spyAuthenticWord).Select
If ((Err.number - vbObjecterror) = 2003) Then
bEndOfDocument = True
Err.Clear
ElseIf (Err.number <> 0) Then
Err.Raise ' error de reenvío
End If
Wend