AuthenticRange.InsertEntity
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