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、taskScheduler
2、从Salesforce到PostgreSQL的集成：构建以API为中心的敏捷集成系列-第二篇
3、读Zepto源码之Gesture模块
4、【死磕Java并发】-----J.U.C之Condition
5、hdu1016

赞赏

长按二维码向我转账

受苹果公司新规定影响，微信 iOS 版的赞赏功能被关闭，可通过二维码转账支持公众号。

阅读

已发送

发送中