Classe XSLTransforms (Word VBA)

Pour utiliser une variable de classe XSLTransforms, elle doit d'abord être instanciée, par exemple


Dim xsls as XSLTransforms
Set xsls = Application.XMLNamespaces(1).XSLTransforms

For Each

Voici un exemple de traitement des éléments XSLTransforms dans une collection


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

Add

Renvoie un objet XslTransform qui représente une transformation XSLT (Extensible Stylesheet Language Transformation) ajoutée à la collection de transformations XSLT pour un schéma spécifié.

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 argument nommé

Location - String

Optional arguments

Les arguments suivants sont facultatifs

Alias (String) - Nom de la transformation XSLT tel qu'il figure dans la bibliothèque de schémas.

InstallForAllUsers (Boolean) - True : tous les utilisateurs qui ouvrent une session sur un ordinateur peuvent accéder et utiliser le nouveau schéma.

Count

Renvoie un type long qui représente le nombre d’XSLTransforms dans la collection.


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

Item

Renvoie un objet XslTransform appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.


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