Clase XMLNamespaces (Word VBA)

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

Dim xmls as XMLNamespaces
Set xmls = Application.XMLNamespaces

For Each

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

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

Add

Devuelve un objeto XMLNamespace que representa un esquema agregado a la Biblioteca de esquemas y disponible para los usuarios en 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 argumento con nombre

Path - String

Optional arguments

Los siguientes argumentos son opcionales

NamespaceURI (String) - URI del espacio de nombres según está especificado en el esquema.

Alias (String) - Nombre del esquema tal como aparece en la ficha Esquemas del cuadro de diálogo Plantillas y complementos.

InstallForAllUsers (Boolean) - True si todos los usuarios que inician sesión en un equipo pueden tener acceso al nuevo esquema y utilizarlo.

Count

Devuelve un Long que representa el número de espacios de nombres XML en la colección.

Dim lngCount As Long
lngCount = Application.XMLNamespaces.Count

InstallManifest

Instala el paquete de expansión XML especificado en el equipo del usuario, poniendo a disposición de uno o varios usuarios una solución de documento inteligente de XML.

Por motivos de seguridad, no se puede instalar un manifiesto sin firmar.

InstallManifest (Path, InstallForAllUsers)

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

Arguments

Un argumento con nombre

Path - String

Optional arguments

Los siguientes argumentos son opcionales

InstallForAllUsers (Boolean) - Si su valor es True, se instala el paquete de expansión XML y se pone a disposición de todos los usuarios de un equipo.

Item

Devuelve un objeto XMLNamespace individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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