Classe AddIn - suplemento (Word VBA)

A classe AddIn representa um único suplemento, instalado ou não instalados. O objeto AddIn é um membro da coleção AddIns. A coleção AddIns contém todos os suplementos disponíveis para o Microsoft Word, independentemente de estarem ou carregados no momento. A coleção AddIns inclui modelos globais ou suplemento bibliotecas do Word (WLLs) exibidas na caixa de diálogo modelos e suplementos. Para usar uma variável de classe AddIn, ela primeiro precisa ser instanciada por exemplo

Dim adi as AddIn
Set adi = AddIns(Index:=1)

For Each

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

Dim adi As AddIn
Dim iCount
For Each adi In AddIns
    If adi.Compiled = True And adi.Installed = True Then 
        iCount = iCount + 1 
    End If 
Next adi
MsgBox iCount & " WLL's are loaded"

Autoload

True se o suplemento especificado será carregado automaticamente quando o Word é iniciado. Suplementos situados na pasta de inicialização na pasta de programa do Word são carregados automaticamente. Boolean somente leitura.

Dim booAutoload As Boolean
booAutoload = AddIns(1).Autoload

Compiled

True se o suplemento especificado é uma biblioteca suplemento do Word WLL. False se o suplemento for um modelo. Boolean somente leitura.

Dim booCompiled As Boolean
booCompiled = AddIns(1).Compiled

Delete

Exclui o suplemento especificado.

AddIns(1).Delete

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

Dim As Variant
AddIns(1).Index

Installed

True se o suplemento especificado estiver instalado carregado. Suplementos que são carregados são selecionados na caixa de diálogo modelos e suplementos. Boolean de leitura/gravação.

Suplementos desinstalados estão incluídos na coleção AddIns. Para remover um modelo ou WLL da coleção AddIns, aplica o método Delete ao objeto AddIn (o nome do suplemento é removido da caixa de diálogo modelos e suplementos ). Para descarregar todos os modelos e WLLs, aplica o método Unload à coleção AddIns.

Addins("Gallery.dot").Installed = False

Name

Retorna o nome de um suplemento. Cadeia de caracteressomente leitura.

Dim strName As String
strName = AddIns(1).Name

Path

Retorna o local de um suplemento instalado. String somente leitura.

O caminho não inclui um caractere precedente — por exemplo, "C:\MSOffice" ou "https://MyServer". Use a propriedade PathSeparator para adicionar o caractere que separa pastas e letras de unidade. Use a propriedade Name para retornar o nome de arquivo sem o caminho e use a propriedade FullName para retornar o nome do arquivo e o caminho juntos.

If AddIns.Count >= 1 Then MsgBox AddIns(1).Path