AuthenticRange.InsertEntity
Siehe auch
Methode: InsertEntity (strEntityName als String)
Beschreibung
Ersetzt die Bereichsauswahl durch die angegebene Entity. Die Entity muss einer der Entity-Namen sein, die von GetEntityNames zurückgegeben werden.
Fehler
2001 | Das Authentic Range-Objekt oder das dazugehörige View-Objekt ist nicht mehr gültig. | |
2005 | Es wurde ein ungültiger Name für den Eintrag angegeben. |
Beispiele
' ---------------------------------------------------------
' 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