Classe XMLNamespaces (Word VBA)

Para usar uma variável de classe XMLNamespaces, ela primeiro precisa ser instanciada por exemplo

Dim xmls as XMLNamespaces
Set xmls = Application.XMLNamespaces

For Each

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

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

Add

Retorna um objeto XMLNamespace que representa um esquema adicionado à Biblioteca de Esquemas e disponibilizado para usuários no 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

O seguinte argumento é necessário

Path (String) - O caminho e o nome do arquivo do esquema. Esse pode ser um caminho de arquivo local, de rede ou um endereço de Internet.

Optional arguments

Os seguintes argumentos são opcionais

NamespaceURI (String) - O espaço para nome do Uniform Resource Indicator conforme especificado no esquema. O parâmetro NamespaceURI diferencia maiúsculas de minúsculas e deve ser escrito exatamente como especificado no esquema.

Alias (String) - O nome do esquema conforme é exibido na guia Esquemas na caixa de diálogo Modelos e Suplementos.

InstallForAllUsers (Boolean) - True se todos os usuários que fazem logon em um computador podem acessar e usar o novo esquema. O padrão é False.

Count

Retorna um Long que representa o número de namespaces XML na coleção. Somente leitura.

Dim lngCount As Long
lngCount = Application.XMLNamespaces.Count

InstallManifest

Instala o pacote de expansão XML especificado no computador do usuário, disponibilizando a solução do documento inteligente XML a um ou mais usuários.

Por motivos de segurança, você não pode instalar um manifesto não assinado. Para obter mais informações sobre manifestos, consulte o SDK de Documentos Inteligentes no site do MSDN.

InstallManifest (Path, InstallForAllUsers)

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

Arguments

O seguinte argumento é necessário

Path (String) - O caminho e o nome do pacote de expansão XML.

Optional arguments

The following argument is optional

InstallForAllUsers (Boolean) - True instala o pacote de expansão XML e o disponibiliza a todos os usuários em um computador. False torna o pacote de expansão XML disponível apenas para o usuário atual. Padrão é False.

Item

Retorna um objeto XMLNamespace individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

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