XdwMergeFiles

種別 DocuWorksファイル
説明 複数のXDWファイルを、１つのXDWファイルにマージ（統合）する

構文 XdwMergeFiles(SaveFile, MergeFiles)
引数 SaveFile ：保存するDocuWorksファイルパスを指定。

MergeFiles：マージする複数のファイル。
　　ファイルパスを「|」で区切った文字列とする
戻り値 正常なら0、異常なら0以外
使用例 Dim s,sSave
sSave = "c:\aaa\bbb\ccc.xdw"
s = "c:\xxx\yyy\z1.xdw|c:\xxx\yyy\z2.xdw|c:\xxx\yyy\z3.xdw"
XdwMergeFiles(sSave, s) 'マージ（統合）する

'指定フォルダのXDWを全てマージする
Dim sFile,sDir,i,sSave,cnt,s,ss
sSave = "c:\aaa\bbb\ccc.xdw"

sDir = "c:\aaa\bbb" '取得するフォルダを指定
ss = sDir & "\*.xdw"

'xdwファイルのみを取得、全ファイルなら「*.*」。戻り値はファイル数
cnt = FileDir(ss)

if cnt > 0 then
　　s = ""
　　For i=1 to cnt 'Forループで、必要な回数を回してください。
　　　　sFile = FileDir() 'ファイルパスの取得
　　　　s = s & iif(s = "", "", "|") & sFile 'ファイルパスを「|」で区切る
　　Next i

　　XdwMergeFiles(sSave, s)
　　MsgBox("マージしました。 " & マージXDW)
else
　　MsgBox("マージするファイルがありません。")
endif
実例  
備考 関連する関数（XdwInsert、XdwProperty、XdwGetPage、XdwAttachFile、XdwChgData、XdwFindText 、XdwPageImage、XdwAppChg、XdwBinder、XdwUserAttr、XdwUserAttrX、XdwClose、XdwModifyPage、XdwMergeFiles、XdwDeletePage、XdwInstall）

ver10.1以降。