Klasse XMLNamespaces (Word VBA)

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

Dim xmls as XMLNamespaces
Set xmls = Application.XMLNamespaces

For Each

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

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

Add

Gibt ein XMLNamespace-Objekt zurück, das ein Schema darstellt, das zur Schemabibliothek hinzugefügt und für Benutzer in Microsoft Word verfügbar gemacht wurde.

Add (Path, NamespaceURI, Alias, InstallForAllUsers)

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

Arguments

Ein benanntes Argument

Path - String

Optional arguments

Die folgenden Argumente sind optional

NamespaceURI (String) - Der Namespace Uniform Resource Indicator, der im Schema angegeben ist.

Alias (String) - Der Name des Schemas, der auf der Registerkarte Schemas im Dialogfeld Vorlagen und Add-Ins angezeigt wird.

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

Count

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

Dim lngCount As Long
lngCount = Application.XMLNamespaces.Count

InstallManifest

Installiert das angegebene XML-Erweiterungspaket auf dem Computer des Benutzers und macht so eine XML-SmartDocument-Lösung für einen oder mehrere Benutzer verfügbar.

Aus Sicherheitsgründen können Sie kein unsigniertes Manifest installieren.

InstallManifest (Path, InstallForAllUsers)

Application.XMLNamespaces.InstallManifest _ 
 "https://smartdocuments/simplesample/manifest.xml"

Arguments

Ein benanntes Argument

Path (String) - Der Pfad und der Dateiname des XML-Erweiterungspakets.

Optional arguments

Das folgendes Argument ist optional

InstallForAllUsers (Boolean) - Ist der Wert True, wird das XML-Erweiterungspaket installiert und für alle Benutzer eines Computers verfügbar gemacht.

Item

Gibt ein einzelnes XmlNamespace -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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