Clase XMLNamespace - un espacio de nombres que se ha agregado a un libro (Word VBA)

La clase XMLNamespace representa un esquema individual en la biblioteca de esquemas.

Para usar una variable de clase XMLNamespace, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase XMLNamespace : XMLNamespaces.Add y XMLNamespaces.Item.

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos XMLNamespace en una colección.

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

Alias

Devuelve un valor String que representa el nombre para mostrar del objeto especificado.

Alias (AllUsers)

AttachToDocument

Adjunta un esquema XML a un documento.

AttachToDocument (Document)

Document: Documento al que se adjunta el esquema XML especificado.

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

DefaultTransform

Devuelve un objeto XSLTransform que representa el archivo XSLT (transformación del lenguaje de hojas de estilos extensible, XSL) que se debe utilizar cuando se abra un documento desde un esquema XML para un espacio de nombres concreto.

DefaultTransform (AllUsers)

Delete

Elimina el esquema XML especificado de la lista de esquemas XML disponibles.

Application.XMLNamespaces(1).Delete

Location

Devuelve o establece una cadena que representa la ubicación física del espacio de nombres de un esquema XML en la biblioteca de esquemas.

Location (AllUsers)

AllUsers: Especifica si se va a devolver la ubicación para todos los usuarios.

Application.XMLNamespaces(1).Location =

URI

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

XSLTransforms

Devuelve una colección XSLTransforms que representa los archivos XSLT (Extensible Stylesheet Language Transformation) especificados para su uso con un esquema.

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