種別 | 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以降、利用可能。 |