Altova StyleVision 2025 Professional Edition

Methode: InsertEntity (strEntityName als String)

 

Beschreibung

Ersetzt die Bereichsauswahl durch die angegebene Entity. Die angegebene Entity muss einer der von GetEntityNameszurückgegebenen Entity-Namen sein.

 

Fehler

2001

Das Authentic-Bereichsobjekt oder das damit in Zusammenhang stehende Ansichtsobjekt ist nicht mehr gültig.

2005

Es wurde ein unbekannter Name für den Eintrag angegeben.

 

Beispiele

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

' Scripting environment - VBScript

' Insert the first entity in the list of available entities

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

DimobjRange

' we assume that the active document is open in authentic view mode

SetobjRange = Application.ActiveDocument.AuthenticView.Selection

 

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

' are shown in the entry helper of XMLSpy

DimarrEntities

objRange.GetEntityNames arrEntities

 

' we insert the first one of the list

IfUBound(arrEntities) >= 0 Then

 objRange.InsertEntity arrEntities(0)

Else

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

EndIf

© 2018-2024 Altova GmbH