Question

Application AddIns (AddIn)

代表单个加载项，不论该加载项是否已加载。AddIn 对象是 AddIns 集合中的一个元素。AddIns 集合包含 Word 中所有的有效加载项，不论其当前是否已加载。AddIns 集合包含在“工具”菜单的“模板和加载项”对话框内所显示的共用模板或 Word 加载项库 (WLL) 中。

使用 AddIn 对象

用 AddIns(index) 可返回单个 AddIn 对象，其中index 是指加载项的名称或索引序号。名称的拼写必须与“模板和加载项”对话框内所显示的完全匹配（大小写不必匹配）。下面的示例将以共用模板形式加载 Letter.dot。

AddIns("Letter.dot").Installed = True

索引序号代表加载项在“模板和加载项”对话框内的加载项列表中所处的位置。下列指令显示第一个有效加载项的路径。

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

下列示例在活动文档开始处创建一个加载项列表。该列表包含了每一个有效加载项的名称、路径和加载状态。

With ActiveDocument.Range(Start:=0, End:=0)
 .InsertAfter "Name" & vbTab & "Path" & vbTab & "Installed"
 .InsertParagraphAfter
 For Each oAddIn In AddIns
 .InsertAfter oAddIn.Name & vbTab & oAddIn.Path & vbTab _
 & oAddIn.Installed
 .InsertParagraphAfter
 Next oAddIn
 .ConvertToTable
End With

用 Add 方法可在有效加载项列表中添加加载项，并可通过Install 参数（可选）将其加载。

AddIns.Add FileName:="C:\Templates\Other\Letter.dot", Install:=True

用 Installed 属性，可加载有效加载项列表中的加载项。

AddIns("Letter.dot").Installed = True

注意 用 Compiled 属性可判断 AddIn 对象是模板还是一个 WLL。