Classe XMLSchemaReference (Word VBA)

A classe XMLSchemaReference representa um esquema individual anexado a um documento. Para usar uma variável de classe XMLSchemaReference, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens XMLSchemaReference em uma coleção.

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

Delete

Exclui a Referência do Esquema XML especificado.

ActiveDocument.XMLSchemaReferences(1).Delete

Location

Retorna uma cadeia de caracteres que representa o local físico de um esquema XML. Somente leitura.

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

NamespaceURI

Retorna uma cadeia de caracteres que representa o URI Uniform Resource Identifier do namespace do esquema para o objeto especificado. Somente leitura.

Se você estiver criando esquemas XML a serem utilizados com o Microsoft Word, é altamente recomendado especificar a configuração targetNamespace no esquema.

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

Reload

Recarrega os esquemas XML referenciados em um documento.

ActiveDocument.XMLSchemaReferences(1).Reload