コリー様、わろ様、レスありがとうございます。 コリー様、せっかくお時間をつかって返信くださったのに すみませんでした。でも勉強になりましたのでよかったです。 コリー様からできないかも・・ってことであきらめかけていたところでしたが、わろ様からアドバイスいただいたもので動作確認取れました！ ありがとうございます。 選択文書ではなく、キーを使った方法で一括に印刷ﾌｫｰﾑに値をセットする方法はわかっていたのですが、選択文書で躓いてしまったのです。 それでもしよろしければ、理解できなかったところがあるのですが @はどうしてなのでしょうか？ Aは以前一括のときはkeyで理解してましたが、どうして存在しないものなのでしょう？ Cは何をしてDはどうして最初の文書を取得になるのでしょう？ --------------------------- set uiview = ws.Currentview set view = uiview.view set vc = view.AllEntries '現在のﾋﾞｭｰｴﾝﾄﾘを取得しvcに代入 set db = ss.Currentdatabase set dc = db.Unprocesseddocuments '表示用順のための処理 dim NVEcol as notesviewentrycollection dim NDColsorted as notesdocumentcollection dim NVEntry as notesviewentry dim Ndoc as notesdocument 'ｿｰﾄ結果用に空の文書コレクションを作成 @set NVEcol = view.AllEntries '上部の現在のﾋﾞｭｰｴﾝﾄﾘ取得を再び？ Aset NDColsorted = view.getalldocumentsbykey("xxyyzz") '適当な存在しない文字列？ Bset NVEntry = NVEcol.getfirstentry '@ｺﾚｸｼｮﾝから最初の文書をNVEntryにｾｯﾄ While not NVEntry is nothing 'NVEntryがなくなるまで set ndoc = dc.getdocument(NVEntry.document) 'Bの文書を選択文書としてndocにｾｯﾄ if not ndoc is nothing then 'ndocがあったら call NDColsorted.Adddocument(ndoc) '空の文書コレクションに追加 end if set NVEntry = NVEcol.getnextentry(NVEntry) '次のｴﾝﾄﾘ文書を取得 wend Cset dc = NDColsorted '？？？ Dset doc = dc.getfirstdocument() ----------------------------- もちろん、デバックでみていますが、なんかすっきりしないのです。 わろ様もかかれているように、海外サイトでの紹介とありましたが お分かりでしたらご教授いただけませんでしょうか？