Classe XMLNamespace - représente un espace de noms ajouté à un classeur (Word VBA)

La classe XMLNamespace représente un schéma individuel dans la bibliothèque de schémas.

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

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe XMLNamespace : XMLNamespaces.Add et XMLNamespaces.Item.

For Each

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

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

Alias

Renvoie une valeur de type String qui représente le nom complet de l'objet spécifié.

Alias (AllUsers)

AttachToDocument

Attache un schéma XML à un document.

AttachToDocument (Document)

Document: Document auquel attacher le schéma XML spécifié.

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

DefaultTransform

Renvoie un objet XSLTransform qui représente le fichier XSLT à utiliser par défaut lors de l'ouverture d'un document à partir d'un schéma XML pour un espace de noms particulier.

DefaultTransform (AllUsers)

Delete

Supprime le schéma XML spécifié de la liste des schémas XML disponibles.

Application.XMLNamespaces(1).Delete

Location

Cette propriété renvoie ou définit une chaîne qui représente l'emplacement physique de l'espace de noms d'un schéma XML dans la bibliothèque de schémas.

Location (AllUsers)

AllUsers: Spécifie s'il faut renvoyer l'emplacement pour tous les utilisateurs.

Application.XMLNamespaces(1).Location =

URI

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

XSLTransforms

Renvoie une collection XSLTransforms qui représente les fichiers de transformation XSLT (Extensible Stylesheet Language Transformation) à utiliser avec un schéma.

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