Notes里面Word的问题,问了很多次了，解决再加分

[chenybin]

http://expert.csdn.net/Expert/topic/1424/1424020.xml?temp=.7014429
各位大侠，给点意见阿
在PostOpen事件里面写的
Dim LocalDb as NotesDataBase
Dim Localview As NotesView
Dim RTItem1 As NotesRichTextItem
Dim DocA,DocB As NotesDocument

Source.EditMode = True
Set Localdb = New NotesDataBase("","OA\indvdoc.nsf")
If Not Localdb.isopen Then
Call Localdb.open("","oa\indvdoc.nsf")
End If
Set Localview = Localdb.GetView("按类型")
Set DocA = Localview.GetFirstDocument
Set RTItem1 = DocA.GetFirstItem("wordobjA")

Set DocB = Source.Document

Call RTItem1.CopyItemToDocument(DocB,"wordobjB")

提示说是"Object Variable not set"，就是最后这个出错。
这个Word对象我是通过创建—》对象弄出来的，名字就是WordobjB和WrodObjA

[jhlqab]

Sub Initialize
Dim session As New notessession
Dim doc As notesdocument

Set doc=session.documentcontext

Set wordapp=CreateObject("Word.Application")
wordapp.Documents.Open("c:\1.doc")

'Call wordapp.documents.add '新建一个WORD文档
wordapp.Visible = True
Set WordSourceDoc= wordapp.activedocument

WordSourceDoc.Paragraphs(1).Range.Font.Bold=True
WordSourceDoc.Paragraphs(1).Range.Font.Size=16
WordSourceDoc.Paragraphs(1).Range.Font.Name="Comic Sans MS"
WordSourceDoc.Paragraphs(1).Range.InsertAfter "this the document's first."
End Sub
如上所示就可以注意wordapp.Documents.Open("c:\1.doc")，1.doc是在服务器目录下的，在客户端打不开的。

[chenybin]

其实我是要这样的效果,但是代码总是错的,真是气人
而且最好就是能够从一个文档里面考贝出来,然后粘贴到另外一个里面去

但是在GETEmbxxxx那里就出错了，郁闷
http://expert.csdn.net/Expert/topic/551/551056.xml?temp=.0661127

[chenybin]

自己搞定了

不过还是谢谢大家，马上洁贴

[阿古]

楼主厉害

[小木可]

你将解决方法给大家说说啊。

[Apollojay]

楼主强，自己解决了。不过告诉大家是怎么做的吧！

[chenybin]

我在前天睡觉前突然冒出来一个想法，不过其实思路很正常的，就是考贝粘贴

所以我在第一个表单提交的时候，就是PostSave的时候考贝到剪切板，在第二个表单载入的时候，在POSTOPEN里面粘贴过来就可以了，因为这个过程是连续的，而且剪切板是笨地的，所以很容易就可以了

我是用NotesUIDocument的GetObject，然后用handle.最后是handle.activewindow.selection
考贝过来，粘贴是同样的道理

在PostOpen的时候还要NotesUIDocument.Refresh。这样就可以了
谢谢大家的参予