指定したバインダーから、全文書をファイルとして取出す

種別 DocuWorks
ご要望 指定したバインダーから、全文書をファイルとして取出す
ファイル 001_action_script.xdw の「GetPageバインダー」アクション
(クリックで、ダウンロードできます。)
ソース Dim cnt,pno,sXBD,sFile,sName,sDir,i

’読込むバインダーを指定
sXBD = CommonDialog(1, , , "バインダー(*.xbd)|*.xbd")

'保存フォルダの指定
sDir = "C:\temp\DW\バインダー保存\"

'一旦、保存フォルダ中のDocuWorksファイルを全て削除する
cnt = FileDir(sDir & "*.xdw")'ファイル数を取得

For i = 1 to cnt
  sFile = sDir & FileDir() 'ファイル名の取得
  FileDelete(sFile) 'ファイルの削除
Next i

'sXdwのバインダー内の文書数を取得する
cnt = XdwProperty(0, 3, sXBD)

for pno = 1 to cnt
  'バインダーなら、文書名を取得する
  sName = XdwProperty(pno, 6, sXBD)
  sFile = sDir & sName & ".xdw"
  
   'バインダーの時、pageを文書番号として文書を取出す。
   XdwGetPage(pno, sFile, sXBD, 1)
next pno
備考 ver4.2.140以降、利用可能。