１．Microsoft Officeが思いのほか進化してる。
スキャナで作ったPDFじゃなく、PCで生成されたと思われるPDFファイルをWordで開いてみるとキレイにWordで復元することができた。
マジかよと思って別の端末からもやってみたら、お古の端末のOffice2010だと同じファイルでも文字化けしてうまく表示できない。
上手くいった端末には、o365のサブスクリプション版がインストールされていた。
調べてみると、Office2013、2016以降ではWordでPDFを読み込めるようになっているらしい。（もちろんなんでも読めるって訳なじゃないけど。）
MS Officeもいろいろ進化してるんだなーって驚きました。
２．試しにWinActorのWordライブラリでPDFを開く。
これはOffice側が対応してれば当然普通にできた。
ライブラリの「Word操作(開く)」のファイルパスにPDFを指定するとそのまま開けるではないか。
３．Wordから表のデータを読み取るスクリプト書いてみた。
で、PDFをWordで読めるんだぁ。って思うとWordのデータが読み取りたくなりますよね。
でも、WinActorのライブラリ見ると編集したり表の修正はあるんだけども読み取りがなかった。
なので、とりあえずWordの中のn番目の表をそのままセル情報をカンマ区切りでCSVっぽく読み取るスクリプトを書いてみました。
読み取った内容をテキスト書き出しでファイル化して、データファイルとして繰り返しで使うとかするとPDFで届くデータの自動処理に使えるかもしれませんね。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
' 引数を解釈する wordFilePath = !ファイルパス! tabelNum = !表番号(1～)! Dim fileExist Dim targetWdObj ' ====指定されたファイルを開く==================================================== Set fso = CreateObject("Scripting.FileSystemObject") fileName = fso.getFileName(wordFilePath) Set objWord = Nothing On Error Resume Next Set objWord = GetObject(, "Word.Application") If objWord is Nothing then Set objWord = CreateObject("Word.Application") On Error Goto 0 End if If objWord is Nothing then Err.Raise 1, "", "指定されたWordアプリケーションが開けません。" End if objWord.Visible = True Dim openFilePath For i = 1 To objWord.Documents.Count openFilePath = objWord.Documents(i).Path & "\" & objWord.Documents(i).Name If StrComp(openFilePath, wordFilePath, 1) = 0 Then Set targetWdObj = objWord.Documents(i) fileExist = True Exit for End If Next On Error Resume Next If fileExist = False Then ' ワードファイルを開く Set targetWdObj = objWord.Documents.Open(wordFilePath) If Err.Number <> 0 Then On Error Goto 0 ' オブジェクト解放 Set targetWdObj = Nothing Set objWord = Nothing Set fso = Nothing Err.Raise 1, "", "指定されたWordファイルが開けません。" End If End If ' =====最前面化================================================== Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.AppActivate targetWdObj ' ====テーブルのデータをCSVとして読み取る======================== Set tbl = targetWdObj.Tables(tabelNum) tableData = "" For r=1 To tbl.Rows.Count rowData = "" For c=1 To tbl.Rows(r).Cells.Count If Len(rowData) > 0 Then rowData = rowData & "," ' セル区切り文字の削除 cellVal = tbl.Cell(r, c).Range.Text cellVal = Left(cellVal, Len(cellVal) - 2) rowData = rowData & """" & cellVal & """" Next tableData = tableData & rowData & vbNewLine Next SetUMSVariable $読み込みデータ$, tableData Set targetWdObj = Nothing Set objWord = Nothing Set fso = Nothing |
スクリプト実行のノードに張り付けてお使いください。