Klasse XSLTransform (Word VBA)

Die Klasse XSLTransform stellt eine einzelne registrierte XSLT (Extensible Stylesheet Language Transformation) dar.

Set

Um eine XSLTransform -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der XSLTransform Klassenvariablen verwendet werden : XMLNamespace.DefaultTransform, XSLTransforms.Add, XSLTransforms.Item und XMLNamespace.XSLTransforms

For Each

Hier ist ein Beispiel für die Verarbeitung der XSLTransform -Elemente in einer Sammlung

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

Alias

Gibt einen Wert vom Typ String zurück, der den Anzeigenamen für das angegebene Objekt darstellt.

Syntax : expression.Alias (AllUsers)

Delete

Löscht die angegebene XSL-Transformation (Extensible Stylesheet Language Transformation) aus der Liste der verfügbaren XSL-Transformationen.

Application.XMLNamespaces(1).DefaultTransform.Delete

ID

Gibt eine Zeichenfolge mit der GUID, die dem aktuellenXslTransform -Objekt zugewiesen ist.

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

Location

Zurückgeben oder Festlegen einer Zeichenfolge , die den physischen Speicherort der XSL-Transformation für den Namespace eines XML-Schemas in der Schemabibliothek darstellt.

Syntax : expression.Location (AllUsers)

AllUsers: Gibt an, ob der Speicherort für alle Benutzer zurückgegeben werden soll.

Application.XMLNamespaces(1).DefaultTransform.Location =

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen XSLTransform-Objekts darstellt.

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

XSLTransforms.Add

Gibt ein XslTransform -Objekt zurück, das eine Extensible Stylesheet Language Transformation (XSLT) darstellt, die der XSLT-Auflistung für ein angegebenes Schema hinzugefügt wurde.

Syntax : 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

Ein benanntes Argument

Location - String

Die folgenden Argumente sind optional

Alias (String) - Der Name der XSL-Transformation, der in der Schemabibliothek angezeigt wird.

InstallForAllUsers (Boolean) - True, wenn alle Benutzer, die sich an einem Computer anmelden, auf das neue Schema zugreifen und es verwenden können.

XSLTransforms.Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der XSLTransforms in der Auflistung darstellt.

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

XSLTransforms.Item

Gibt ein XslTransform -Objekt in einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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

XSLTransforms.Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen XSLTransforms-Objekts darstellt.

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