AuthenticRange.GotoPrevious
Method: GotoPrevious (eKind as SPYAuthenticElementKind) as AuthenticRange
Description
Sets the range to the beginning of the element of type eKind which is before the beginning of the current range. The method returns the modified range object.
Errors
2001 | The authentic range object, or its related view object is no longer valid. |
2004 | Target lies before beginning of document. |
2005 | Invalid element kind specified. Invalid address for the return parameter was specified. |
Examples
' --------------------------------------------
' 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.GotoPrevious(spyAuthenticTag).Select
If ((Err.number - vbObjecterror) = 2004) Then
bBeginOfDocument = True
Err.Clear
ElseIf (Err.number <> 0) Then
Err.Raise ' forward error
End If
Wend