一つのフォームに入力編集用と表示用のリッチテキストフィールドを作り、 モードによって切り替えて表示したいと思っています。 過去のＱ&Ａによると式では無理なようなので、以下のようなスクリプトを 作ってみたのですが、表示用フィールドに内容がコピーされません。 デバッガで見ると RtItemは "NOTESEMBEDDEDOBJECT"になっていて[0]番目の Name, Sourceには添付しているファイル名がセットされていますが NewItemでは "NOTESEMBEDDEDOBJECT"の中には何も表示されてません。 基本的なやりかたが間違っている気がしますので、どうすれば実現できる のかアドバイスをいただけないでしょうか？ Notes勉強中のため問題外のレベルかもしれませんが、よろしくお願いします。 Sub Postopen(Source As Notesuidocument) '/* リッチテキストは保存後でないと認識されないらしいので */ '/* PostOpen時にセットする */ Dim w As New NotesUIWorkSpace Dim UiDoc As NotesUIDocument Dim Doc As NotesDocument Dim RtItem As NotesRichTextItem Dim NewItem As NotesRichTextItem Set UiDoc = w.CurrentDocument Set Doc = UiDoc.Document '/* 新規文書の時は何もしない */ If UIDoc.IsNewDoc = True Then Exit Sub End If '/* "Tmp_AppendFiles"(編集用)から "AppendFiles"(表示用)へコピー */ Set RtItem = Doc.GetFirstItem("Tmp_AppendFiles") Set NewItem = Doc.GetFirstItem("AppendFiles") Call NewItem.AppendRTItem ( RtItem ) End Sub