请问如何在客户端实现调用word打开附件?万分感谢!

你可以试试：

Dim item As Variant
Dim Result As Long
Dim obj As NotesEmbeddedObject
Dim handle As Variant

'-假设文件存储在Body域中，先获取文件并拆离到临时目录
Set item=doc.GetFirstItem("Body")
Set obj=item.EmbeddedObjects(0)
tmpPath = "D:\"
tmpFile = obj.source
Call obj.ExtractFile(tmpPath + tmpFile)

'-打开文件
Set handle = CreateObject("Word.Application")
handle.Documents.Open tmpPath + tmpFile
handle.visible = True
handle.WindowState = 1
Msgbox "",64,"提示"
Set handle = Nothing

加入有多个附件呢？而且要根据文件名决定打开哪一个。

不知大家又无屏蔽rtf域的click事件