画像の文字を識別する(VBS)

Microsoft Office Document Imaging(MODI)を利用して画像の文字を識別するVBScriptです。
※ 要Microsoft Office(2003、2007で確認。2010は不可。)


                    Option Explicit

                    

                    Const miLANG_JAPANESE = 17

                    

                    On Error Resume Next

                    With CreateObject("MODI.Document")

                      .Create "D:\TestFiles\OCRTest.jpg"

                      .OCR miLANG_JAPANESE

                      MsgBox .Images(0).Layout.Text

                    End With

                    If Err.Number <> 0 Then MsgBox Err.Description

                    Err.Clear

                    On Error GoTo 0

参考Webページ：
http://bbs.wankuma.com/index.cgi?mode=al2&namber=51622&KLOG=87
http://msdn.microsoft.com/en-us/library/aa167607%28office.11%29.aspx

トップページ > その他 > 画像の文字を識別する(VBS)