付箋が貼られたページを取出し、別ファイルにまとめたい。

種別 DocuWorks
ご要望 付箋が貼られたページを取出し、別ファイルにまとめたい。
ファイル 001_action_script.xdw の「GetPage付箋」アクション
(クリックで、ダウンロードできます。)
ソース Dim cnt,pno,sTemp,sFile,sXdw,PageMax

’読込むファイルを指定
sXdw = CommonDialog(1, , , "DocuWorks(*.xdw)|*.xdw")

sTemp = "C:\temp\DW\GetPage付箋\一時ファイル.xdw"
sFile = "C:\temp\DW\GetPage付箋\保存ファイル.xdw"

'sXdwの総ページ数を取得する
PageMax = XdwProperty(0, 1, sXdw)

FileDelete(sFile)'一旦、保存ファイルを削除する

'sXdwファイルに対して、同じことを行う。
for pno = 1 to PageMax
   '指定ページに付箋はあるか?
  cnt = XdwProperty(pno, 11, sXdw)
  
  if cnt > 0 then
    XdwGetPage(pno, sTemp, sXdw)
    'ページを取出す
    
    XdwInsert(sFile, sTemp, sXdw)
    '取出したページを、挿入する
  endif
next pno

FileDelete(sTemp)'一時ファイルを削除する
備考 ver4.2.140以降、利用可能。