いつも参考にさせて頂いております。 フォームＡとフォームＢがあります。 どちらのフォームにも、リッチテキストフィールドが存在しております。 フォームＡのRichField_A(リッチテキストフィールド)に値を入力し保存します。 フォームＢを開きます。 ボタンを押すと、RichField_Aの値をフォームＢのRichField_B(リッチテキストフィールド)にコピーして、表示する処理を行いたいのですが、うまく処理できません。 デバッグすると、コピーはされているようですが、どうしても表示されません。 Notesヘルプ、関連サイト等、何を見ても上手くいかない状態です。 どなたか、よきアドバイスをお願いします。 Sub Click(Source As Button) Dim s As New NotesSession Dim w As New NotesUIWorkspace Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim iniview As NotesView Dim inidoc As NotesDocument Set db = s.CurrentDatabase Set uidoc = w.CurrentDocument Set iniview= db.GetView( "DocumentView") Set inidoc = iniview.GetFirstDocument '現在の文書の値を取得 Set doc=uidoc.Document Dim rtitemA As Variant Dim rtitemB As Variant Set rtitemA = inidoc.GetFirstItem( "RichFirld_A" ) Set rtitemB = New NotesRichTextItem( doc, "RichFirld_B" ) If ( rtitemA.Type = RICHTEXT And rtitemB.Type = RICHTEXT ) Then Call rtitemB.AppendRTItem( rtitemA ) Call doc.Save(False, True) End If End Sub