連番貼り付け

概要

連番を取得して、テキストアノテーションとして監視フォルダに格納されたXDW文書に貼り付けます。

実行すると以下の様に動作します。

eDocArrangement2
10_連番貼り付け
決裁申請書_サンプル.xdw
連番貼り付け
20_貼り付け済み
アノテ
00001.xdw

設定の前準備

C:\Homeの下に、以下のような構成でフォルダを作り、準備します。

フォルダ構成のダウンロード

連番貼り付け_フォルダ構成.zip

Cドライブのルートに解凍してください。

フォルダ構成は以下の通りです。

  • C:\Home\eDocArrangement2\Demo\連番貼り付け
    • 10_連番貼り付け
      • _決裁申請書_サンプル.zip
      • 決裁申請書_サンプル.xdw
      • 決裁申請書_サンプル_0001.xdw
      • 決裁申請書_サンプル_0002.xdw
    • 15_エラー
    • 20_貼り付け済み
    • 90_System
      • 10_番号管理
        • 連番.db
      • 90_Log

設定

以下のリンクから完成した設定をダウンロードしていただくことができます。

設定ファイルのダウンロード

連番貼り付け_設定.zip

以下のフォルダに解凍すると設定が適用されます。

C:\Users\ユーザー名\AppData\Roaming\TechnoStyle\eDocArrangement2

グローバルデータとログの設定(共通設定)

グローバルデータの内容は以下の通りです。トップフォルダを変更する場合は、以下の定義を変更してください。グローバルデータは、「共通設定」から変更できます。

名前

値

TopFolder

C:\Home\eDocArrangement2\Demo\連番貼り付け

詳しい設定方法は、設定例(共通)グローバルデータとログの設定を参照して下さい。

ログ設定

実行ログファイル名

{%GET_G(TopFolder)}\90_System\90_Log\Log.txt

エラーログファイル名

{%GET_G(TopFolder)}\90_System\90_Log\ErrorLog.txt

文字コード

SJIS

方式

追加書き込み (日単位)

連番貼り付け

連番を取得して、テキストアノテーションとしてXDW文書のページ1に貼り付ける。

共通ログ設定の内容でログを出力する。

  • ファイルの繰り返し1
    Loop File

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

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

  • XDW文書オープン1
    Open DocuWorks File

DocuWorksファイルを読み書き可能でオープンする。

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

  • テキスト貼り付け1
    Paste Text Annotation

「XDW文書オープン1」でオープンされた文書のページ1に以下のテキストアノテーションを貼り付ける。

{%GET_SEQ_NO_AND_COUNT_UP(連番1,ファイルの繰り返し1)}

X座標(mm)

172.71

Y座標(mm)

11.93

文字色

黒

背景色

無し

原点

左上

フォント

フォント名

MS ゴシック

フォントサイズ

14

太字

False

斜体

False

取り消し線

False

下線

False

文字セット

128

詳細設定

向き

横書き

回転角度

0

行間隔(行)

1

文字間隔(Point)

0

マージン(mm)上,右,下,左

1.7,1.7,1.7,1.7

  • XDW文書クローズ1
    Close DocuWorks File

「XDW文書オープン1」でオープンされた文書をクローズする。クローズ前に文書を保存する。

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

  • 条件分岐1
    If

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

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

  • 満たしている場合
    If Then
  • ファイル移動1
    Move File

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

移動元

{%GET(FullPathFileName)}

移動先

{%GET_G(TopFolder)}\20_貼り付け済み

ファイル名を「{%GET_LAST_SEQ_NO(連番1)}.xdw」に変更する。

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

  • 満たしていない場合
    If Else
  • ファイル移動2
    Move File

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

移動元

{%GET(FullPathFileName)}

移動先

{%GET_G(TopFolder)}\15_エラー

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

監視設定(eDocArrangement 2 Schedulerの設定)

No. / 設定名

1 連番貼り付け

実行対象

連番貼り付け

監視フォルダ

{%GET_G(TopFolder)}\10_連番貼り付け

拡張子

*.xdw

下位フォルダ

対象にしない

スケジュール

一定間隔 00:00:10

常時ログ出力

しない

オープンチェック

オープンチェックする。(3秒)

サイズチェック

しない

実行条件

動作確認

以下の動画をご覧ください。