AuthenticRange.InsertEntity

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

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

AuthenticRange.InsertEntity

次も参照してください:

 

メソッド: InsertEntity (strEntityName 文字列 として)

 

説明

指定されたエントリと範囲の選択を置き換えます。指定されたエントリは、GetEntityNames により返されたエンティティ名の1つである必要があります。

 

エラー


2001

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


2005

未知の入力名が指定されています。

 

サンプル

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

'                         VBScript

' Insert the first entity in the list of availabel entities

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

Dim objRange

Set objRange = objPlugin.AuthenticView.Selection

 

' first we get the names of all available entities as they

' are shown in the entry helper of XMLSpy

Dim arrEntities

objRange.GetEntityNames arrEntities

 

' we insert the first one of the list

If UBound(arrEntities) >= 0 Then

 objRange.InsertEntity arrEntities(0)

 objRange.Select()

Else

 MsgBox "Sorry, no entities are available for this document"

End If

 


(C) 2019 Altova GmbH