| 種別 | DocuWorksファイル |
|---|---|
| 説明 | DocuWorksバインダーに関する各種処理。 新規作成、文書挿入、文書取出、文書削除。 文書名の取得／設定。文書数の取得  |
| 構文 | XdwBinder(sFile, sts[, sData][, no][, color]) |
| 引数 | sFile：DocuWorksバインダーのファイル名 sts ：0=作成、1=文書挿入、2=文書取出、3=文書削除、 4=文書名の取得、5=文書名の設定、6=文書数の取得 sData：挿入する文書ファイル、または、設定する文書名 no ：文書挿入、文書取出、文書削除。 文書名の取得／設定の際は、文書番号。作成時は文書サイズ（0～10） color：作成時の文書カラー（0～15） |
| 戻り値 | 文字列、数字の場合は0以外はエラー |
| 使用例 | Dim sXbd,no,sData,sDir,cnt,i,sXdw,s sXbd = "C:\aaa\bbb\XdwBinder.XBD" FileDelete(sXbd) XdwBinder(sXbd,0,,0,5)'バインダーを作成する sDir = "C:\aaa\bbb\ccc\" cnt = FileDir(sDir & "*.XDW") For i=1 to cnt sXdw = FileDir() 'ファイルパスの取得 XdwBinder(sXbd,1,sXdw) '一番最後にXDWファイルを挿入 Next i cnt = XdwBinder(sXbd,6) '文書数の取得 For i=1 to cnt s = XdwBinder(sXbd,4,,i) '文書名を取得 XdwBinder(sXbd,5,s & i,i) '文書名を設定 Next i sDir = "C:\aaa\bbb\ddd\" DeleteFolder(sDir) 'フォルダがなくとも、文書取出時に自動作成します MsgBox("文書取出") For i=1 to cnt s = XdwBinder(sXbd,4,,1) '文書名を取得 sXdw = sDir & s XdwBinder(sXbd,2,sXdw,1) '文書取出 XdwBinder(sXbd,3,,1) '文書削除 Next i |
| 実例 | |
| 備考 | 関連する関数（XdwInsert、XdwProperty、XdwGetPage、XdwAttachFile XdwChgData、XdwFindText 、XdwPageImage、XdwAppChg、XdwBinder、XdwUserAttr、XdwUserAttrX、XdwClose） ver9.0以降 |