Clase XMLSchemaReference (Word VBA)

La clase XMLSchemaReference representa un esquema individual adjunto a un documento. Para usar una variable de clase XMLSchemaReference, primero debe ser instanciado, por ejemplo

Dim xml as XMLSchemaReference
Set xml = ActiveDocument.XMLSchemaReferences(Index:=1)

For Each

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

Dim xml As XMLSchemaReference
For Each xml In ActiveDocument.XMLSchemaReferences
	
Next xml

Delete

Elimina la referencia del esquema XML especificada.

ActiveDocument.XMLSchemaReferences(1).Delete

Location

Devuelve una cadena que representa la ubicación física de un esquema XML.

Dim strLocation As String
strLocation = ActiveDocument.XMLSchemaReferences(1).Location

NamespaceURI

Devuelve una cadena que representa el identificador uniforme de recursos (URI) del espacio de nombres del esquema para el objeto especificado.

Si está creando esquemas XML para utilizarlos con Microsoft Word, es muy recomendable especificar el valor targetNamespace del esquema.

If ActiveDocument.XMLSchemaReferences.Item(1) _ 
 .NamespaceURI <> "SimpleSample" Then 
 
 Application.XMLNamespaces.Item("SimpleSample") _ 
 .AttachToDocument (ActiveDocument) 
 
End If

Reload

Este método vuelve a cargar los esquemas XML a los que el documento hace referencia.

ActiveDocument.XMLSchemaReferences(1).Reload