1.你那样通过上载文档会影响网络的速度。如果一定要那样的话,你可以在类模块中编写如下事件:
Public WithEvents appWord as Word.Application
Private Sub appWord_DocumentBeforeClose _
(ByVal Doc As Document, _
Cancel As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Do you really " _
& "want to close the document?", _
vbYesNo)
If intResponse = vbNo Then Cancel = True
End Sub
在该事件中你可以处理你要做的上载等。
2.就是通过Exchange服务来实现,直接在客户端打开Word文档,让用户来修改并保存,但是要通过"http:\\"将保存路径设置为服务器上的共享文件夹的路径将文档直接保存到服务器上不必再上载。