皆さん、ご意見ありがとうございます。 >リッチテキストフィールドの非表示式を編集出来る術があれば >一番いいのでしょうが、私もその方法は知りません。 そうなんですか。わからないこともあるんですね。 今回は時間がないので、非表示条件式に使っているフィールドもコピーすることにしました。これで見た目は正常です。 taisei 999 さんの言われる通り、理由は残しておきます。 最終的に以下のかたちになりました。 '非表示条件式コピー newDoc.Aフィールド = Doc.Aフィールド(0) ←ここを追加 'リッチテキストコピー fName = "R1" Set item = Doc.GetFirstItem(fName) Call item.CopyItemToDocument( newDoc, fName ) 以上