Classe XMLNamespace - um namespace que foi adicionado a uma pasta de trabalho (Word VBA)

A classe XMLNamespace representa um esquema individual na Biblioteca de Esquemas. Para usar uma variável de classe XMLNamespace, ela primeiro precisa ser instanciada por exemplo

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

For Each

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

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

Alias

Retorna uma String que representa o nome para exibição para o objeto especificado.

Alias (AllUsers)

AttachToDocument

Anexa um esquema XML a um documento.

AttachToDocument (Document)

Document: O documento ao qual será anexado o esquema XML especificado.

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

DefaultTransform

Retorna um objeto XSLTransform que indica o arquivo de Transformação em XSL XSLT a ser usado ao abrir um documento a partir de um esquema XML de um determinado namespace.

DefaultTransform (AllUsers)

Delete

Exclui o esquema XML especificado a partir da lista de esquemas XML disponíveis.

Application.XMLNamespaces(1).Delete

Location

Retorna ou define um String que representa o local físico do namespace de um esquema XML na biblioteca de esquemas. Leitura/gravação.

Location (AllUsers)

AllUsers: Especifica se é necessário retornar o local para todos os usuários. False retorna o local para que apenas o usuário atual, que pode ser diferente do local para todos os usuários.

Application.XMLNamespaces(1).Location =

URI

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

XSLTransforms

Retorna uma coleção XSLTransforms que representa os arquivos XSLT Transformação de Linguagem de Folha de Estilo Extensível especificados para uso com o esquema.

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