Excel里有四个自动宏，其中的宏名是不能改变的。
//自动宏
Option Explicit
Sub AutoExec()
' Adds an item to the Tools menu.
' This procedure runs automatically when the add-in loads.
Dim offCmdBrPp As CommandBarPopup ' This will be set to
' the Tools menu.
Dim offCmdBtn As CommandBarButton ' This will be set to
' the Project command.
' Create an object variable referring to the Tools menu.
Set offCmdBrPp = _
Application.CommandBars("Menu Bar").Controls("Tools")
' If the Address Book Report command already exists, delete it.
On Error Resume Next
offCmdBrPp.Controls("Address Book Report").Delete
' Add a command in the 4th position on the Tools menu.
Set offCmdBtn = _
offCmdBrPp.Controls.Add(Type:=msoControlButton, Before:=4)
' Set properties on the new command.
With offCmdBtn
.Caption = "Address Book Report"
.OnAction = "ListAddresses"
End With
End Sub
Sub AutoExit()
' Deletes an item on the Tools menu.
' This procedure runs automatically when the add-in unloads.
' If the AddressBook Report command exists, delete it.
On Error Resume Next
Application.CommandBars("Menu Bar").Controls _
("Tools").Controls("Address Book Report").Delete
End Sub
Sub ListAddresses()
' This procedure adds Outlook addresses to a new Word document.
' Called by the OnAction property in the AutoExec procedure.
Dim olList As AddressList ' Outlook address book.
Dim olEntry As AddressEntry ' Outlook address item.
Dim appOutl As Outlook.Application
Dim olNmSpc As Outlook.NameSpace
Dim wrdReportPara As Word.Range
Dim intRepeat As Integer
' Set a reference to an Outlook addresss book.
Set appOutl = New Outlook.Application
Set olNmSpc = appOutl.GetNamespace("MAPI")
' If your system doesn't have a PAB installed,
' the solution will end.
On Error GoTo NoPABAvailable
Set olList = olNmSpc.AddressLists("Personal Address Book")
' Open a new blank document.
Documents.Add
' Add and format text.
' Add 5 paragraphs.
For intRepeat = 0 To 4
ActiveDocument.Paragraphs.Add
Next intRepeat
' Set this object to the 4th paragraph.
Set wrdReportPara = ActiveDocument.Paragraphs(4).Range
' Add and format text.
wrdReportPara.InsertBefore Text:="Address Book"
With wrdReportPara.Font
.Name = "arial"
.Size = 12
.Bold = True
.Italic = True
End With
' Select a range, add a paragraph.
Set wrdReportPara = wrdReportPara.Next
Call AddPara(wrdReportPara)
' Add addresses to the active document.
For Each olEntry In olList.AddressEntries
wrdReportPara.InsertBefore olEntry.Name
Call AddPara(wrdReportPara)
wrdReportPara.InsertBefore olEntry.Address
Call AddPara(wrdReportPara)
Call AddPara(wrdReportPara)
Next
' If your system doesn't have a PAB installed,
' the solution will end.
NoPABAvailable:
MsgBox "Personal Address Book is not available." _
vbTab "Shutting down."
End
' Clean up object variables.
Set olList = Nothing
Set olNmSpc = Nothing
Set appOutl = Nothing
Set wrdReportPara = Nothing
End Sub
