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)