AuthenticRange.SelectPrevious
Method: GotoPrevious (eKind as SPYAuthenticElementKind) as AuthenticRange
Description
Selects the element of type eKind before the current beginning 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. | |
2004 | Target lies before begin 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.SelectPrevious(spyAuthenticTag).Select
If ((Err.number - vbObjecterror) = 2004) Then
bBeginOfDocument = True
Err.Clear
ElseIf (Err.number <> 0) Then
Err.Raise ' forward error
End If
Wend