AuthenticRange.InsertEntity

www.altova.com Print this Topic Previous Page Up One Level Next page

Home >  User Reference > Objects > AuthenticRange >

AuthenticRange.InsertEntity

See also

 

Method: InsertEntity (strEntityName as String)

 

Description

Replace the ranges selection with the specified entity. The specified entity must be one of the entity names returned by GetEntityNames.

 

Errors


2001

The authentic range object, or its related view object is no longer valid.


2005

Unknown entry name was specified.

 

Examples

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

'                         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

 


© 2019 Altova GmbH