-

　　一、什么是AddIn加載項(xiàng)

　　AddIn對(duì)象是AddIns集合中的一個(gè)元素。

　　AddIns集合包含 Word 中所有的有效加載項(xiàng)，不論其當(dāng)前是否已加載。

　　AddIns集合包含在“工具”菜單的“模板和加載項(xiàng)”對(duì)話(huà)框內(nèi)所顯示的共用模板或 Word 加載項(xiàng)庫(kù) (WLL) 中。

　　二、如何使用AddIn對(duì)象

　　要想使用AddIn對(duì)象，我們得在VBA環(huán)境下使用。如下為使用方法，希望對(duì)你有所幫助。

　　用AddIns(index) 可返回單個(gè) AddIn對(duì)象，其中 index 是指加載項(xiàng)的名稱(chēng)或索引序號(hào)。名稱(chēng)的拼寫(xiě)必須與“模板和加載項(xiàng)”對(duì)話(huà)框內(nèi)所顯示的完全匹配(大小寫(xiě)不必匹配)。下面的示例將以共用模板形式加載 Letter.dot。

　　AddIns("Letter.dot").Installed = True索引序號(hào)代表加載項(xiàng)在“模板和加載項(xiàng)”對(duì)話(huà)框內(nèi)的加載項(xiàng)列表中所處的位置。下列指令顯示第一個(gè)有效加載項(xiàng)的路徑。

　　If Addins.Count >= 1 Then MsgBox Addins(1).Path下列示例在活動(dòng)文檔開(kāi)始處創(chuàng)建一個(gè)加載項(xiàng)列表。該列表包含了每一個(gè)有效加載項(xiàng)的名稱(chēng)、路徑和加載狀態(tài)。

　　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方法可在有效加載項(xiàng)列表中添加加載項(xiàng)，并可通過(guò) Install參數(shù)(可選)將其加載。

　　AddIns.Add FileName:="C:TemplatesOtherLetter.dot", Install:=True用Installed屬性，可加載有效加載項(xiàng)列表中的加載項(xiàng)。

　　AddIns("Letter.dot").Installed = True注意 用Compiled屬性可判斷 AddIn對(duì)象是模板還是一個(gè) WLL。