eDocArrangementを使った自動処理入門

業務での利用

Using at work

業務でeDocArrangementを使う方法で、一番のお奨めはフォルダ監視による自動処理です。

他には、DocuWorks DeskのプラグインからeDocArrangementの処理を呼び出す方法もあります。

フォルダ監視の場合、サーバー1台のみに設定をすればいいので、導入コストを抑えることができ、設置やメンテナンスが簡単である、という利点があります。

プラグインを使う構成は、利用者のPC全てにeDocArrangementをインストールして設定する必要があるため、導入やメンテナンスに手間がかかることに加え、追加ライセンスの購入が必要となりますので、導入時のコストがアップします。

eDocArrangementを使った自動処理の過去の事例を紹介します。

XDW文書からのテキスト抽出

Excelなどから直接DocuWorksプリンタに出力して作成されたXDW文書は、テキスト情報を保持していますので、eDocArrangementからそのテキスト情報を取得することが可能です。

ただし、文書内の改行は削除されてしまい、すべての文字が繋がった状態で取得されます。

また、テキスト情報は印刷時の見た目の並びと異なる場合があります。

例えば、以下の様に「番号:123456」という文字をPowerPointとExcelで作成して、DocuWorksプリンターに印刷してXDW文書を作成します。

その際にPowerPointでは、最初に「123456」を入力して、次に「番号:」を入力してみてください。

すると、XDW文書から取得できる文字(全選択してコピー後メモ帳に貼り付けた文字)は、Excelから印刷したものは、「番号:123456」となりますが、PowerPointから印刷したものは、「123456番号:」となります。

これはPowerPointがプリンターにデータを送信する際に、画面上の左上からの位置の順ではなくて、入力された順にデータと座標位置を送信しているからと考えられます。

このようにアプリケーションからプリンターに送信されるデータは、アプリケーション毎に異なり、DocuWorksプリンターから作成されるXDW文書からは、データの送信順でテキスト情報が取得されると考えられます。

DW Viewerで文字を全選択してコピーした文字から改行を削除したテキスト情報が、実際に取得される文字に近いので、確認してみてください。

イメージXDW文書をOCRして文字取得

FAXやスキャンから作成されたXDW文書をOCRして文字情報を取得できます。OCRはeDocArragementからDocuWorksのOCRの機能を呼び出して利用することが可能です。

OCRはページ全体か、範囲を矩形で指定(複数可)して文字読み取りした結果のテキストを正規表現で取得することが可能です。

eDocArrangementにてよく使う正規表現については、「設定」ページの 正規表現について をご参照下さい。

XDW文書からQRコード読み取り

XDW文書からページに印刷されたQRコードを読み取って、文字情報を取得することができます。

QRコードの大きさについて。eDocArrangementのQRコード読み取りは、ページをイメージ変換した1枚の静止画像から取得するため、スマートフォンのカメラのような動画で取得するほどの読み取り性能はありません。

そのため、QRコードを大きめで鮮明に印刷されるように調整する必要があります。大きさは、QRコードの1ドットの大きさが0.5mm～1mmほどが推奨値です。また、20文字程度の文字を誤り補正Mで作成したQRコードは、2cm～3cmほどが推奨値です。但し、これは参考値であり、印刷品質や、スキャン時の紙の状態、読み取り精度等で変化するため、実際の環境でトライ＆エラーを繰り返し、調整する必要があります。

eDocArrangementでは、マクロを使って、CSVファイルを読み取ったり、出力したりできます。

ですが、CSVファイルの扱いは意外に難しい部分があります。

CSVは簡単に言うと、項目をカンマで区切ったテキストファイルです。しかし、細かい仕様として以下の様なものがあります。

上記のような仕様を、CSVを出力するアプリケーションと、CSVを読み込むアプリケーションが正しく処理する必要がありますが、プログラマが実装するかどうかで変わってしまい、これらの仕様通りになっていない場合も多くあります。

CSVファイルがどのように作成されたか？

ユーザー様から、CSVファイルを読み取って処理してほしいと言われた場合、CSVファイルがどのように作成されたかを確認します。

Excelで作成したシンプルな表をCSVで保存したファイルを、eDocArrangementで読み込む事ができます。但し、以下について注意が必要です。

• セルの表示形式を正しく設定する。

  セルの表示形式を自動にしておくと、入力時に数字だけのデータは数字とみなされて先頭の0が削除されてしまいます。例えば、電話番号で「09012345555」は「9012345555」となってしまいます。そのため、表示形式は文字列としてください。

• 日付の場合は、表示形式をユーザー定義にして、「yyyy/mm/dd」としてください。

• セルに入力する文字は、できるだけカンマや改行を入れないルールにしてください。

  セルに,や改行があると、CSVに出力される際に""で囲まれたデータとなります。そのようなデータは、通常のテキスト読み込みで処理ができません。eDocArrangementでは、そのようなCSVファイルを読み込むマクロ(CSV_FILE_READ)が用意されていますが、仕様を理解して使う必要があります。CSV_FILE_READマクロを使えば、問題なく処理可能です。

ExcelファイルからCSVファイルを出力するスクリプト

ExcelファイルからCSVファイルを出力するスクリプトを書いてみました。Excelで文書を開いて「名前を付けて保存」で、CSVファイルに保存する処理を自動で行います。

以下のスクリプトをメモ帳に貼り付けて、「ExcelToCSV.vbs」で保存してください。使い方は、以下のスクリプトの最初に書いてあります。(実行するにはExcelがインストールされている必要があります。)

'-------------------------------------------------------------------------
'ExcelToCSV.vbs
'
'Excel文書をCSVファイルに変換します。
'入力のファイルと同じフォルダに拡張子を.csvにしたファイルを出力します。
'既にファイルが存在する場合は上書きします。
'
'例  test.xlsxと同じフォルダにtest.cvsを出力する場合
'ExcelToCSV.vbs C:\Home\temp\test.xlsx
'
'ExcelToCSV.vbsをデスクトップなどに配置して、Excelファイルを
'ExcelToCSV.vbsにD&Dしても実行できます。
'-------------------------------------------------------------------------
Option Explicit

'引数がない場合は終了
if Wscript.Arguments.Count = 0 then
    WScript.Quit
end if

dim objExcel
dim workbookCount
workbookCount = 0

'引数に渡されたファイルの数分繰り返す
do while workbookCount < Wscript.Arguments.Count

    'CSV形式で保存
    SaveCSV Wscript.Arguments(workbookCount)
    workbookCount = workbookCount + 1
loop

if IsObject(objExcel) then

    'エクセルを終了します
    objExcel.Quit
end if

sub SaveCSV(inputFileName)

    dim wkFileName
    dim xlCSV
    xlCSV = 6

    '.xlsx,.xls以外のファイルは処理しない
    if lcase(right(inputFileName,4)) <> "xlsx" and _
       lcase(right(inputFileName,3)) <> "xls" then
        exit sub
    end if

    'Excelオブジェクトがない場合
    if IsObject(objExcel) = false then

        'エクセルオブジェクトを作成
        set objExcel = CreateObject("Excel.Application")

        'エクセル画面を表示
        objExcel.Visible = True
    end if

    'ワークブックを開く
    objExcel.Workbooks.Open inputFileName

    '各種の確認ダイアログを非表示
    objExcel.DisplayAlerts = False

    'Excel文書名から、CSVファイル名を作成
    wkFileName = replace(inputFileName,".xlsx",".csv")
    wkFileName = replace(wkFileName,".xls",".csv")

    'アクティブシートをCSV形式で保存
    objExcel.ActiveSheet.SaveAs wkFileName, xlCSV

    'ワークブックを閉じる
    objExcel.Workbooks(1).Close
end sub