将嵌入对象的内容拷贝到剪贴板

这个例子访问后台文档中的Word文档对象，并将文档内容拷贝到剪贴板。

Sub CopyWordtoClip(Byval Viewname as String,Byval docKey as String,Byval fieldName as String)

Ok=True

on Error Goto errorhandle

dim Session as New NotesSession

dim cdb as NotesDatabase

dim view as NotesView

dim doc as NotesDocument

'包含对象的RTF 域

dim item as Variant

dim embobj as NotesEmbeddedObject

' OLE控件句柄

dim handle as Variant

dim Selection as Variant

'在数据库中查找指定的文档

set cdb=session.CurrentDatabase

set view=cdb.GetView(viewname)

set doc=view.GetDocumentByKey(dockey)

'得到域中的嵌入对象

set item=doc.getfirstitem(fieldname)

set embobj=item.EmbeddedObjects(0)

'激活（不显示）OLE控件并得到他的句柄

set handle=embobj.Activate(False)

'选中文档的内容

handle.select

'得到选中内容的句柄

set selection=handle.activewindow.selection

selection.copy

exit sub

errorhandle:

messagebox "OLE复制错误！",16,error

ok=False

Exit sub

End Sub

viewname字符串 ，在数据库中查找文档的视图

dockey：字符串 ， 在视图中查询文档的匹配文本

fieldname：字符串 ， 他是包含Word文档对象的域名

如果要拷贝到别的地方，调用了Copy以后再调用Paste就可以了。