NotesDocument の Responses で返答文書(子文書)のコレクションが取得できるので、それを利用するのはどうですか？

文書の返答文書を取得する その３ - のおつ -Notes/Dominoに関すること-
https://guylocke.blogspot.com/2008/09/blog-post_6846.html

お世話になります。
早々にコメントありがとうございます。

LotusScript の知識が少ないため、理解できない部分が多いのですが、
アドバイスいただいた内容ですが、子文書取得のみの処理でしょうか?

質問に記載の 処理では、１件ずつであれば、

親文書Aから親文書Bに移行できるのですが、複数文書まとめて処理できず、困っています。
Loopで処理を回せばできそうな気がするのですが、．．．

以上、よろしくお願いいたします。

日が経っているので、解決しているかもしれませんし、やりたいことを私が理解できていないのかもしれませんが、、

Mash555 さんが参考にされたソースは、親文書Aの子文書1(=doc)を選択して、新たに親文書となる文書をダイアログで選んで（親文書B=newParent）、子文書1を親文書Bの親文書に変更する、というコードです。

ykawa さんが参考にと記載してくださったURL先のコードは、選択した文書である親文書A（=doc）を元に、子文書全てを取得（＝cdocs）して、Mash555 さんがいう、Loopで子文書（=cdoc）のタイトルを表示している、というコードになります。

ですので、両方を組み合わせればよい、というのがykawaさんのコメントだと思います。

Mash555 さんが参考にされたソースでは、移動させたい子文書を選択して処理開始しています。関連する子文書を全て一度に対応したいのであれば、移動させたい子文書のある親文書を選択して処理開始して、選択した親文書からResponses を使えば全子文書が取得できるので、ループして全子文書を処理すれば、関連する子文書の処理ができます。

参考ソースが何をやっているのかがわかれば、応用して実施したいことに対応できますので、まずは参考ソースをヘルプで紐解くことから始めてはいかがでしょうか。

ykawa さんが参考にと記載してくださったURL先のコードを基本にして、新たな親文書Bを選択する下記の部分を追加して、
Set dc = ws.PickListCollection( 3, False, db.Server, db.FilePath, ws.CurrentView.View.Name, "移動先選択", "新たに親とする文書を選択します。")
Set newParent = dc.GetFirstDocument '新たに親となる文書を取得する

ループ内でタイトルを表示する代わりに、下記で親文書の紐づけ変更をすれば実現できると思います。
Call cdoc.MakeResponse( newParent ) '親子の関係を築く
Call cdoc.Save( True, False ) '新たな親子関係を確かなものにすため保存する

・ループ箇所は「Do While Not ( cdoc Is Nothing )」の部分です。

こんにちは。PickListCollection のパラメータで、2つ目の値が False （1文書のみ）となっておりますが、

これを True （複数文書を選択可能）にすることで解決できるのではないでしょうか。

現行）Set dc = ws.PickListCollection( 3, False, db.Server, db.FilePath, ws.CurrentView.View.Name, "移動先選択", "新たに親とする文書を選択します。")

提案）Set dc = ws.PickListCollection( 3, True, db.Server, db.FilePath, ws.CurrentView.View.Name, "移動先選択", "新たに親とする文書を選択します。")

mimimi さん　 NomuSunder さん

コメント遅くなり申し訳ございません。
アドバイスありがとうございます。

NomuSunder さんの複数文書選択はやってみましたが、できませんでした。
mimimi さんからアドバイスいただいた ykawa さん のソースと組み合わせて、試してみます。
皆さんありがとうございました。

今後ともよろしくお願いいたします。