Classe XSLTransform (Word VBA)

La classe XSLTransform représente une transformation XSLT (Extensible Stylesheet Language Transformation) enregistrée donnée.

Set

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

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe XSLTransform : XMLNamespace.DefaultTransform, XSLTransforms.Add, XSLTransforms.Item et XMLNamespace.XSLTransforms

For Each

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

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

Alias

Renvoie une valeur de type String qui représente le nom complet de l'objet spécifié.

Syntaxe : expression.Alias (AllUsers)

Delete

Supprime la transformation XSLT (Extensible Stylesheet Language Transformation) spécifiée de la liste des transformations XSLT disponibles.

Application.XMLNamespaces(1).DefaultTransform.Delete

ID

Renvoie une chaîne contenant le GUID affecté à l’objetXslTransform actif.

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

Location

Cette propriété renvoie ou définit une chaîne qui représente l'emplacement physique de la transformation XSL pour l'espace de noms d'un schéma XML dans la bibliothèque de schémas.

Syntaxe : expression.Location (AllUsers)

AllUsers: Spécifie s'il faut renvoyer l'emplacement pour tous les utilisateurs.

Application.XMLNamespaces(1).DefaultTransform.Location =

Parent

Renvoie un Object qui représente l'objet parent de l'objet XSLTransform spécifié.

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

XSLTransforms.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é.

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

Location - String

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.

XSLTransforms.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

XSLTransforms.Item

Renvoie un objet XslTransform appartenant à une collection.

Syntaxe : expression.Item (Index)

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

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

XSLTransforms.Parent

Renvoie un type de données Object qui représente l'objet parent de l'objet XSLTransforms spécifié.

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