AuthenticRange.GotoNext

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

ホーム >  ユーザー レファレンス > オブジェクト > AuthenticRange >

AuthenticRange.GotoNext

次も参照してください:

 

メソッド: GotoNext (eKind  を SPYAuthenticElementKind として) AuthenticRange として

 

説明

eKind の次の要素の開始位置に範囲を設定します。メソッドは変更された範囲オブジェクトを返します。

 

エラー


2001

Authentic 範囲オブジェクト、または、関連するビュー オブジェクトは有効ではありません。


2003

ターゲットがドキュメントの終わりの後に存在します。


2005

無効な要素の種類が指定されています。

戻り値パラメーターのために無効なアドレスが指定されています。

 

サンプル

' --------------------------------------------

'                VBScript

' Scan through the whole document word-by-word

' --------------------------------------------

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 ' forward error

 End If

Wend

 


(C) 2019 Altova GmbH