Clase XSLTransform (Word VBA)

La clase XSLTransform representa una transformación XSL (Extensible Stylesheet Language Transformation) registrada.

Set

Para usar una variable de clase XSLTransform, primero debe ser instanciado, por ejemplo

Dim xsl as XSLTransform
Set xsl = Application.XMLNamespaces(1).DefaultTransform

Los siguientes procedimientos se pueden usar para establecer variables de clase XSLTransform : XMLNamespace.DefaultTransform, XSLTransforms.Add, XSLTransforms.Item y XMLNamespace.XSLTransforms

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos XSLTransform en una colección.

Dim xsl As XSLTransform
For Each xsl In Application.XMLNamespaces.XSLTransforms
	
Next xsl

Alias

Devuelve un valor String que representa el nombre para mostrar del objeto especificado.

Sintaxis : expression.Alias (AllUsers)

Delete

Elimina la transformación XSL (Extensible Stylesheet Language Transformation) de la lista de transformaciones XSL disponibles.

Application.XMLNamespaces(1).DefaultTransform.Delete

ID

Devuelve una cadena que contiene el GUID asignado al objetoXslTransform actual.

Dim strID As String
strID = Application.XMLNamespaces(1).DefaultTransform.ID

Location

Devuelve o establece una cadena que representa la ubicación física de la transformación XSL para el espacio de nombres de un esquema XML en la biblioteca de esquemas.

Sintaxis : expression.Location (AllUsers)

AllUsers: Especifica si se va a devolver la ubicación para todos los usuarios.

Application.XMLNamespaces(1).DefaultTransform.Location =

Parent

Devuelve un objeto Object que representa el objeto primario del objeto XSLTransform especificado.

Dim objParent As Object
Set objParent = Application.XMLNamespaces(1).DefaultTransform.Parent

XSLTransforms.Add

Devuelve un objeto XslTransform que representa una transformación XSL (Extensible Stylesheet Language Transformation) agregada a la colección de transformaciones XSL para un esquema especificado.

Sintaxis : expression.Add (Location, Alias, InstallForAllUsers)

Sub AddXSLT() 
 Dim objSchema As XMLNamespace 
 Dim objTransform As XSLTransform 
 
 Set objSchema = Application.XMLNamespaces("SimpleSample") 
 Set objTransform = objSchema.XSLTransforms _ 
 .Add("c:\schemas\simplesample.xsl") 
 
End Sub

Arguments

Un argumento con nombre

Location - String

Los siguientes argumentos son opcionales

Alias (String) - Nombre de la transformación XSLT tal y como aparece en la Biblioteca de esquemas.

InstallForAllUsers (Boolean) - True si todos los usuarios que inician sesión en un equipo pueden tener acceso al nuevo esquema y utilizarlo.

XSLTransforms.Count

Devuelve un Long que representa el número de XSLTransforms de la colección.

Dim lngCount As Long
lngCount = Application.XMLNamespaces(1).XSLTransforms.Count

XSLTransforms.Item

Devuelve un objeto XslTransform de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

Dim xsl As XSLTransform
Set xsl = Application.XMLNamespaces(1).XSLTransforms(Index:=1)

XSLTransforms.Parent

Devuelve un objeto Object que representa el objeto primario del objeto XSLTransforms especificado.

Dim objParent As Object
Set objParent = Application.XMLNamespaces(1).XSLTransforms.Parent