AuthenticRange.InsertEntity
Método: InsertEntity (strEntityName as String)
Descripción
Reemplaza la selección del intervalo con la entidad indicada, que debe ser una de las entidades devueltas porGetEntityNames.
Errores
2001 | El objeto de intervalo o su objeto relacionado ya no es válido. | |
2005 | Nombre de entrada desconocido. |
Ejemplos
' ---------------------------------------------------------
' VBScript
' Insertar la primera entidad de la lista de entidades disponibles
' ---------------------------------------------------------
Dim objRange
Set objRange = objPlugin.AuthenticView.Selection
' primero obtenemos el nombre de todas las entidades
' tal y como aparecen en el ayudante de entrada de XMLSpy
Dim arrEntities
objRange.GetEntityNames arrEntities
' insertamos la primera de la lista
If UBound(arrEntities) >= 0 Then
objRange.InsertEntity arrEntities(0)
objRange.Select()
Else
MsgBox "Para este documento no hay entidades"
End If