こんにちは びぃ〜です。 サンプルを作ってみました。 まず、キーワードフィールドを用意します。名前はａ 選択項目を入力にして、 赤|1 みどり|2 青|3 としておきます。 次に入力用にテキストフィールドを用意します。名前はｂ リッチテキストを用意します。名前はBody ボタンを一つ作って内容は以下のようにします。 Sub Click(Source As Button) Dim s As New notessession Dim db As notesdatabase Dim rs As notesrichtextstyle Dim ws As New notesuiworkspace Dim uidoc As notesuidocument Dim doc As notesdocument Dim ndoc As notesdocument Dim nuidoc As notesuidocument Dim nid As String Set uidoc = ws.currentdocument Set doc = uidoc.document Set rs = s.createrichtextstyle Dim ritem As New NotesRichTextItem(doc, "body") rs.NotesColor = Clng(doc.a(0)) Call ritem.AppendStyle(rs) Call ritem.appendtext(doc.b(0)) doc.form = "FrmName" '←フォーム名を入れてください。 Call uidoc.save Call doc.save(True,True) nid = doc.noteid doc.saveoptions = "0" Call uidoc.close Set db = s.currentdatabase Set ndoc = db.getdocumentbyid(nid) Set nuidoc = ws.editdocument(True,ndoc) End Sub 以上です ボタンを押すとｂで入力した文字がａで選択した色でBodyに表示されます。 欠点としては、 文字は必ず一番後ろに追加される、 必ず保存が走ってしまう R4.6以降しか対応していない（と思う） 色を選択しないで、ボタンを押すとエラーになると思うので適当に制御してください。 こんなものでどうでしょうか？ 昼休みに急いで作ったため、ソースが見にくくてすみません 質問があればいつでもどうぞ