Classe XMLNamespaces (Word VBA)

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

Dim xmls as XMLNamespaces
Set xmls = Application.XMLNamespaces

For Each

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

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

Add

Renvoie un objet XMLNamespace qui représente un schéma ajouté à la bibliothèque de schémas, disponible pour les utilisateurs dans Microsoft Word.

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

Un argument nommé

Path - String

Optional arguments

Les arguments suivants sont facultatifs

NamespaceURI (String) - URI (Uniform Resource Indicator) de l'espace de noms tel qu'il est spécifié dans le schéma.

Alias (String) - Nom du schéma tel qu'il figure dans l'onglet Schémas de la boîte de dialogue Modèles et compléments.

InstallForAllUsers (Boolean) - True : tous les utilisateurs qui ouvrent une session sur un ordinateur peuvent accéder et utiliser le nouveau schéma.

Count

Renvoie un type long qui représente le nombre d’espaces de noms XML dans la collection.

Dim lngCount As Long
lngCount = Application.XMLNamespaces.Count

InstallManifest

Installe le kit d'extension XML spécifié sur l'ordinateur d'un utilisateur, en mettant la solution de document dynamique XML à la disposition d'au moins un utilisateur.

Pour des raisons de sécurité, vous ne pouvez pas installer un manifeste non signé.

InstallManifest (Path, InstallForAllUsers)

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

Arguments

Un argument nommé

Path (String) - Chemin d'accès et nom de fichier du kit d'extension XML.

Optional arguments

Les arguments suivants sont facultatifs

InstallForAllUsers (Boolean) - La valeur true installe le kit d’extension XML et le rend accessible à tous les utilisateurs sur un ordinateur.

Item

Renvoie un objet XmlNamespace spécifique appartenant à une collection.

Item (Index)

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

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