Clase XSLTransforms (Word VBA)
Para usar una variable de clase XSLTransforms, primero debe ser instanciado, por ejemplo
Dim xsls as XSLTransforms
Set xsls = Application.XMLNamespaces(1).XSLTransforms
For Each
A continuación, se muestra un ejemplo de cómo procesar los elementos XSLTransforms en una colección.
Dim xsl As XSLTransform
For Each xsl In Application.XMLNamespaces.XSLTransforms
Next xsl
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.
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
Optional arguments
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.
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
Item
Devuelve un objeto XslTransform de una colección.
Item (Index)
Index: El objeto individual que se va a devolver.
Dim xsl As XSLTransform
Set xsl = Application.XMLNamespaces(1).XSLTransforms(Index:=1)