証拠番号を刑事番号毎に採番して書証に貼り付ける

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

ループ毎にユーザーデータをクリアする。

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

{%SET_U(属性,裁判所名,{%REGEX_CAPTURE(([^\\]+裁判所)\\,{%GET(FolderPath)})})}
{%SET_U(属性,事件番号,{%REGEX_CAPTURE(([^\\]+号)(?:\\|$),{%GET(FolderPath)})})}
{%SET_U(属性,原告人,{%REGEX_CAPTURE({%ESCAPE_REGEX({%GET_U(属性,事件番号)})}\\([^\\]+),{%GET(FolderPath)})})}
{%SET_U(属性,年号,{%REGEX_CAPTURE((.+年),{%GET_U(属性,事件番号)})})}

{%WRITE_LOG(裁判所名:{%GET_U(属性,裁判所名)})}
{%WRITE_LOG(事件番号:{%GET_U(属性,事件番号)})}
{%WRITE_LOG(原告人:{%GET_U(属性,原告人)})}
{%WRITE_LOG(年号:{%GET_U(属性,年号)})}

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

#証拠番号ファイル
{%SET_U(wk,証拠番号ファイル名,{%GET(FolderPath)}\証拠番号(発行済み).txt)}

{%IF({%EXISTS_FILE({%GET_U(wk,証拠番号ファイル名)})}=True,
  #証拠番号.txtがある場合
  {%READ_FILE({%GET_U(wk,証拠番号ファイル名)},証拠番号,SJIS,ALL)}
  {%SET_U(属性,証拠番号,{%REGEX_CAPTURE((\d+),{%GET_U(証拠番号,1)})})}

  #カウントアップ
  {%SET_U(属性,証拠番号,{%CALC({%GET_U(属性,証拠番号)}+1)})}
,
  #証拠番号.txtがない場合
  {%SET_U(属性,証拠番号,1)}
)}

#証拠番号ファイル更新
{%SET_U(証拠番号,1,{%GET_U(属性,証拠番号)})}
{%WRITE_FILE({%GET_U(wk,証拠番号ファイル名)},証拠番号,SJIS,New)}

{%WRITE_LOG(証拠番号:{%GET_U(属性,証拠番号)})}

#号証
{%SET_U(属性,号証,甲{%GET_U(属性,原告人)} 第{%GET_U(属性,証拠番号)}号証)}
#ファイル名
{%SET_U(属性,ファイル名,{%GET_U(属性,号証)}_{%GET_U(属性,事件番号)}_{%GET_U(属性,裁判所名)}.xdw)}

DocuWorksファイル「{%GET(FullPathFileName)}」を読み書き可能でオープンする。

バインダーを新規作成する場合は、ページ最大サイズでカラーは青とする。

「{%DW_GET(OpenName)}」でオープンされた文書のページを先頭から繰り返し処理を行う。

「{%DW_GET(OpenName)}」でオープンされた文書のページ{%DW_GET(PageLoopCount)}に以下のテキストアノテーションを貼り付ける。

{%GET_U(属性,号証)}

「{%DW_GET(OpenName)}」でオープンされた文書のページ{%DW_GET(PageLoopCount)}に以下のテキストアノテーションを貼り付ける。

{%GET_U(属性,裁判所名)} {%GET_U(属性,事件番号)}

「{%DW_GET(OpenName)}」でオープンされた文書をクローズする。クローズ前に文書を保存する。

バインダー内の文書、オリジナルデータを追加する場合は、末尾に追加する。

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

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

文書を以下の通りコピーする。

ファイル名を「{%GET_U(属性,ファイル名)}」に変更する。

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

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

ファイル名を「{%GET_U(属性,ファイル名)}」に変更する。

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

コピー後に削除を行う。

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

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

コピー後に削除を行う。