Klasse XMLNamespace (Word VBA)

Die Klasse XMLNamespace stellt ein einzelnes Schema innerhalb der Schemabibliothek dar.

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

Dim xml as XMLNamespace
Set xml = Application.XMLNamespaces(Index:=1)

Die folgenden Prozeduren können zum Festlegen der XMLNamespace Klassenvariablen verwendet werden : XMLNamespaces.Add und XMLNamespaces.Item.

For Each

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

Dim xml As XMLNamespace
For Each xml In Application.XMLNamespaces
	
Next xml

Alias

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

Alias (AllUsers)

AttachToDocument

Fügt ein XML-Schema an ein Dokument an.

AttachToDocument (Document)

Document: Das Dokument, an das das angegebene XML-Schema angefügt werden soll.

Dim objSchema As XMLNamespace 
 
Set objSchema = Application.XMLNamespaces _ 
 .Add("c:\schemas\simplesample.xsd") 
 
objSchema.AttachToDocument ActiveDocument

DefaultTransform

Gibt ein XslTransform -Objekt zurück, das die standardmäßige XSLT-Datei (Extensible Stylesheet Language Transformation) darstellt, die beim Öffnen eines Dokuments aus einem XML-Schema für einen bestimmten Namespace verwendet werden soll.

DefaultTransform (AllUsers)

Delete

Löscht das angegebene XML-Schema aus der Liste der verfügbaren XML-Schemas.

Application.XMLNamespaces(1).Delete

Location

Zurückgeben oder Festlegen einer Zeichenfolge , die die physikalische Position des Namespaces eines XML-Schemas in der Schemabibliothek darstellt.

Location (AllUsers)

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

Application.XMLNamespaces(1).Location =

URI

Dim strURI As String
strURI = Application.XMLNamespaces(1).URI

XSLTransforms

Gibt eine XSLTransforms-Auflistung zurück, die die XSLT-Dateien (Extensible Stylesheet Language Transformation) repräsentiert, die mit einem Schema verwendet werden sollen.

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