用LastModified属性试试?
可以获取当前文档currdoc的最后修改时间.
同样,可以利用当前文档的UNID获取服务器上的文档serverdoc(set serverdoc = db.GetDocumentByUNID(UNID))
也可以获取到服务器上文档的最后修改时间.
if currdoc.LastModified <> serverdoc.LastModified then
msgbox "文档在您打开期间已被别人修改过,请重新打开一次."
'其他需要处理的事项.
end if