AuthenticRange.GotoPrevious

www.altova.com このトピックを印刷 前のページ 1つ上のレベル 次のページ

ホーム >  プログラマーのレファレンス > Application API > Interfaces > AuthenticRange >

AuthenticRange.GotoPrevious

See also

 

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 bEndOfDocument

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


(C) 2018 Altova GmbH