過去の書きこみを参考にして何度かうまっくいったのですが、動きが怪しいので、書き込みしました。 現象: @文書のプロパティでみるとフィールドには値が入っており添付ファイルもあるが画面には表示されない。 フィールドは非表示にはなっていない。 添付ファイルはフィールド外にも表示されない。 A試しに計算結果テキストに@textでぬきだすと文字が表示される。 テストパターン ・フィールドに直接、文字列入力またはファイル添付した場合、フィールド位置には表示されない。Aの@textは表示される。 ・フィールドにメモ帳や別文書からコピー&ペーストした場合、正常にフィールド位置に表示さる。添付ファイルがあってもちゃんと表示される。もちろんAの@textも表示される。 テスト中のコーディングは以下です。参照もとのdocは引数で渡しています。 コピーしたいリッチテキストが3つあるので、微妙にパターンをかえてためしました。 Dim session As New NotesSession Dim db As NotesDatabase Dim newDoc As NotesDocument Dim item As NotesItem Dim fName As String Set db = session.CurrentDatabase Set newDoc = DB.CreateDocument newDoc.Form = "フォーム名" 'リッチテキスト 例1) fName = "R1" Set item = Doc.GetFirstItem(fName) Call item.CopyItemToDocument( newDoc, fName ) 'リッチテキスト 例2) fName = "R2" Dim rt As NotesRichTextItem Dim rtitem As New NotesRichtextItem(newDoc, fName) Set rt = doc.getFirstItem(fName) Call rtitem.AppendRtItem(rt) 'リッチテキスト 例3) 例1)と仕掛けは同じで変数を独自に宣言 fName = "R3" Dim rtitemC As NotesItem Set rtitemC = doc.GetFirstItem( fName ) Call rtitemC.CopyItemToDocument( newDoc, fName ) 'テキスト (複数行入力あり) fName = "FName" Set item = Doc.GetFirstItem(fName) Call item.CopyItemToDocument( newDoc, fName ) '文書保存 Call NewDoc.save(False, False) 何がいけないのでしょうか? 原因が判明しないと、文書コピーして不要フィールドを消すしかありません。 ご教授ください。