在代理中利用VBA对word直接编辑后保存

在代理中利用VBA对word附件直接编辑后保存
步骤：
1、获得附件，并拆分到服务器临时目录里后再删除附件
2、创建word对象，并打开临时目录里的文件
3、编辑附件然后保存
4、将附件添加到文档中并保存

Sub Initialize
 On Error Goto errhandle
 Dim session As NotesSession
 Dim cdb As NotesDatabase
 Dim collection As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim richItem As NotesRichTextItem
 Dim item As NotesItem
 Dim i As Integer
 Dim j As Long
 Dim attachVar As Variant
 Dim attachObj As NotesEmbeddedObject
 
 Dim docApp As Variant
 Dim docDocs As Variant
 Dim docObj As Variant
 Dim range As Variant
 
 Dim tempFiles() As String
 Dim tempObj() As NotesEmbeddedObject
 Dim tempFile As String
 
 Set session = New NotesSession
 Set cdb = session.CurrentDatabase
 Set collection = cdb.Search(|form="fTest2" & @Attachments|,Nothing,0)
 For j = 1