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

这个例子访问后台文档中的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

从Prada新光天地专柜获悉

' OLE控件句柄

dim handle as Variant

dim Selection as Variant

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

set cdb=rrentDatabase

set view=tView(viewna成就一代大侠！最武侠ARPG页游巨作Game5《傲剑》me)

set doc=tDocumentByKey(dockey)

'得到域中的嵌入对象

set item=tfirstitem(fieldname)

set embobj=beddedObjects(0)

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

set handle=tivate(False)

'选中文档的内容

lect

'得到选中内容的句柄

set selection=lection

py

exit sub

errorhandle:

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

ok=False

Exit sub

End Sub

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

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

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

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

阜阳治疗白癜风多少钱
阳江白斑医院
早期肝纤维化好治吗