在代理中利用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