Outlook 2007 添加Quick Part
Sub InsertQuickPart(strPartName As String)Dim objOL As Outlook.Application
Dim objDoc As Word.Document
Dim objWord As Word.Application
Dim objSel As Word.Selection
Dim objETemp As Word.Template
On Error Resume Next
Set objOL = Outlook.Application
Set objDoc = objOL.ActiveInspector.WordEditor
Set objWord = objDoc.Application
Set objSel = objDoc.Windows(1).Selection
Set objETemp = objWord.Templates(1)
objETemp.BuildingBlockEntries(strPartName).Insert _
Where:=objSel.Range, RichText:=True
Set objOL = Nothing
Set objDoc = Nothing
Set objWord = Nothing
Set objSel = Nothing
Set objETemp = Nothing
End Sub
欢迎访问《许阳的红泥屋》
页:
[1]