作成者	カテゴリ	返答の対象		公開
すなっぴ 11/29/2005 02:51 PM		リッチテキストフィールドのコピーが出来ません

ゆっくり考えながら、色々な方法を試して見ましたが、どれもこれもうまく動作しません。
｢文書をいったん閉じて再び開く｣と言う方法を模索していますが、エラーになるかコピーしても表示されないかのどちらかです。
どなたか、具体的に教えて頂けないでしょうか？

ちなみに現在のコードは下記の通りです。

申し訳ありませんが、よろしくお願いします。

Sub Click(Source As Button)

Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase

Dim iniview As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim inidoc As NotesDocument
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem

Dim currentDB As NotesDatabase
Dim currentDoc As NotesDocument

Set db = s.CurrentDatabase
Set uidoc = w.CurrentDocument
Call uidoc.Refresh
Call uidoc.Save
Set currentDoc = uidoc.Document
Call uidoc.Close

Set iniview= db.GetView( "iniView")
Set inidoc = iniview.GetFirstDocument

Set rtitemA = inidoc.GetFirstItem("Frame")
Set rtitemB = New NotesRichTextItem( currentDoc, "Frame_01" )
Call rtitemB.AppendRTItem(rtitemA)
Call currentDoc.Save(False,True)
Call w.EditDocument(True,currentDoc)

End Sub