XDWからPDFに変換 (テキストを持ったPDFを作成)

メイン画面のファイルリストを対象に繰り返し処理を行う。

ループ毎にユーザーデータをクリアする。但し、以下のユーザーデータはクリアの対象外とする。

result

以下の条件を満たした場合にループを中断する。

{%IF({%GET_U(result,1)}=-1,True,False)}

以下のマクロを実行する。

#入力フォルダからの相対パスを取得
{%SET_U(属性,相対パス,{%REGEX_CAPTURE({%ESCAPE_REGEX({%GET_G(TopFolder)}\10_In)}(.+),{%GET(FolderPath)})})}

#変換先フォルダ
{%SET_U(属性,変換先,{%GET_G(TopFolder)}\20_Out{%GET_U(属性,相対パス)})}

#処理済み正常フォルダ
{%SET_U(属性,処理済み正常,{%GET_G(TopFolder)}\30_処理済み{%GET_U(属性,相対パス)})}

#処理済みエラーフォルダ
{%SET_U(属性,処理済みエラー,{%GET_G(TopFolder)}\15_Error)}

#変換用作業フォルダ
{%SET_U(属性,変換Work,{%GET_G(TempFolder)}\10_pdf変換_work)}

#コマンド実行結果ファイルのパス
{%SET_U(属性,ResultPath,{%GET_G(TempFolder)}\result.txt)}

#XDWからPDF変換 コマンド引数
{%SET_U(属性,コマンド引数,{%REPLACE(
-i "{%GET(FullPathFileName)}" 
-o "{%GET_U(属性,変換先)}\{%GET(FileNameWithoutExtension)}.pdf" 
-p "DocuWorks PDF"
-async -mdtw 
-ppto 20
-ftwto
-sdf "{%GET_U(属性,処理済み正常)}"
-fdf "{%GET_U(属性,処理済みエラー)}"
-slf "{%GET_G(SystemFolder)}\90_Log\CommandLog\Log_{%DATE(yyyyMMdd)}.txt" 
-flf "{%GET_G(SystemFolder)}\90_Log\CommandLog\ErrorLog_{%DATE(yyyyMMdd)}.txt" 
-wf "{%GET_U(属性,変換Work)}" 
-z "{%GET_U(属性,ResultPath)}"
,<CrLf>, )})}

#コマンド実行
{%COMMAND({%GET_G(printToPdfFromDocuWorksFile)},{%GET_U(属性,コマンド引数)})}

以下のマクロを実行する。

{%READ_FILE({%GET_U(属性,ResultPath)},result,SJIS,LINE)}

#結果ファイルの1行目の終了コードを判定
{%IF({%GET_U(result,1)}!=0,
  {%IF({%REGEX_CAPTURE((非同期プロセス数が上限に達しています),{%GET_U(result,2)})}!=,
    #非同期プロセス数が上限に達していますの場合
  ,
    #結果ファイルの2行目のエラーメッセージでエラーを発生させる
    {%RAISE_ERROR({%GET_U(result,2)})}
  )}
,)}

以下の条件を判定して処理を分岐する。

処理階層内のエラー回数が0回。

文書を以下の通り移動する。

移動先に同名の文書がある場合は、ファイル名に連番を付与する。

コピー後に削除を行う。

以下のマクロを実行する。

{%IF({%PRINTER_IS_ENABLED(DocuWorks PDF)}=False,
  {%WRITE_LOG(DocuWorks PDFが応答不能な状態です。)}
,)}