返信ありがとうございます。 ひまつぶしさんの案を作成してみました。 こちらの方が印刷ができるようになりますので良いと思いました。 ありがとうございました。 ※親文書はコピーしたくないので子文書のみコピーできるようにしています。 Sub Querypaste(Source As Notesuiview, Continue As Variant) Continue = False Msgbox("複製処理はアクションにて行ってください") End Sub Sub Click(Source As Button) Dim Wks As New NotesUIWorkspace Dim UIView As NotesUIView Dim Session As New NotesSession Dim Db As NotesDatabase Dim Doc As NotesDocument Dim CopyDoc As NotesDocument Dim ParentDoc As NotesDocument Dim ParentDocID As String Dim retStr As Variant Set UIView = Wks.CurrentView Set Db = Session.CurrentDatabase Set Doc = Db.GetDocumentByID(UIView.CaretNoteID) If Not(Doc Is Nothing) Then retStr = Evaluate("@IsAvailable($REF)", Doc) If Datatype(retStr) <> V_EMPTY Then If retStr(0) = 1 Then '子 ParentDocID = Doc.GetItemValue("$REF")(0) Set ParentDoc = Db.GetDocumentByUNID(ParentDocID) Set CopyDoc = Doc.CopyToDatabase( Db ) Call CopyDoc.MakeResponse( ParentDoc ) Wks.ViewRefresh Else '親 Msgbox("親文書はコピーできません。") End If Else Msgbox("予期せぬエラー") End If Else 'カテゴリを選択されている場合 Msgbox("選択しているデータは文章ではありません。") End If End Sub