AuthenticRange.SelectNext
Method: SelectNext (eKind as SPYAuthenticElementKind) as AuthenticRange
Description
Selects the element of type eKind after the current end of the range. The method returns the modified range object.
Errors
2001 | The authentic range object, or its related view object is no longer valid. |
2003 | Target lies after end of document. |
2005 | Invalid element kind specified. Invalid address for the return parameter was specified. |
Examples
' --------------------------------------------
' Scripting environment - VBScript
' Scan through the whole document word-by-word
' --------------------------------------------
Dim objAuthenticView
' we assume that the active document is open in authentic view mode
Set objAuthenticView = Application.ActiveDocument.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