Classe AddIns - coleção AddIns (Word VBA)
Uma coleção de objetos AddIn que representa todos os suplementos disponíveis para o Word, independentemente de estarem ou não são 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 AddIns, ela primeiro precisa ser instanciada por exemplo
Dim ais as AddIns
Set ais = AddIns
For Each
Aqui está um exemplo de processamento dos itens AddIns em uma coleção.
Dim adi As AddIn
For Each adi In AddIns
Next adi
Add
Retorna um objeto AddIn que representa um suplemento adicionado à lista de suplementos disponíveis.
Use a propriedade Installed de um suplemento para ver se ele já está instalado.
Sub AddTemplate()
' For this example to work correctly, verify that the
' path is correct and the file exists.
AddIns.Add FileName:="C:\Program Files\Microsoft Office" _
& "\Templates\Letters & Faxes\MyFax.dot", Install:=True
End Sub
Arguments
O seguinte argumento é necessário
FileName (String) - O caminho para o modelo ou WLL.
Optional arguments
The following argument is optional
Install (Boolean) - True para instalar o suplemento. False para adicionar o suplemento à lista de suplementos, mas não instalá-lo. O valor padrão é True.
Count
Retorna o número de objetos AddIn na coleção AddIns . Long somente leitura.
Dim lngCount As Long
lngCount = AddIns.Count
Item
Retorna um objeto individual de uma coleção.
Item (Index)
Index: O individual suplemento a ser retornado. Index pode ser um Long que indica a posição ordinal do suplemento na coleção ou uma cadeia de caracteres que representa o nome do suplemento individual.
Dim adi As AddIn
Set adi = AddIns(Index:=1)
Unload
Descarrega todos os suplementos carregados e, dependendo do valor do argumento RemoveFromList , remove-os da coleção AddIns .
Para descarregar um único modelo ou WLL, defina a propriedade installed do objeto AddIn como false. Para remover um único modelo ou WLL da coleção AddIns , aplique o método delete ao objeto AddIn .
Unload (RemoveFromList)
RemoveFromList: True para remover os suplementos descarregados da coleção AddIns (os nomes são removidos da caixa de diálogo Modelos e Suplementos). False para deixar os suplementos descarregados na coleção. Se a propriedade AutoLoad de um suplemento descarregado retornar true, Unload não poderá remover esse suplemento da coleção AddIns , independentemente do valor de RemoveFromList.
If AddIns.Count > 0 Then AddIns.UnLoad RemoveFromList:=False