ここから本文です

Excelマクロ Set doc = CreateObject("MODI.Document")でエラーが発生することにつ...

fir********さん

2014/11/600:48:23

Excelマクロ Set doc = CreateObject("MODI.Document")でエラーが発生することについて
環境は
windows8.1
64bit
Excel2013

Word2013
です。
【経過】
http://support.microsoft.com/kb/982760 (Microsoft Office 2010 で使用する MODI のインストール)のページで方法1の手順通りインストール(exeファイルダウンロード→実行→完了画面表示されるまで)実行、再起動後
Sub bibibi()
Set doc = CreateObject("MODI.Document")
doc.Create ("33333.tif")
doc.OCR 9, True, True
If (doc.Images.Count > 0) Then
SavePicture doc.Images(0).Picture, "C:\Users\pc1\Desktop\cap.bmp"

Dim bibibi As Long
bibibi = Shell("C:\Users\pc1\Desktop\uwsc503\UWSC.exe C:\Users\pc1\Desktop\uwsc503\クリック.UWS", 1)

End If
End Sub
を実行するとエラー'429'がでました。そのため方法2でインストール、PC再起動を行うととエラー'429'がでました。エラー箇所はいずれも
Set doc = CreateObject("MODI.Document")
です。また、uwscで

//参考uwsc help
// OCRの利用(Office付属) #n57
CONST miLANG_ENGLISH = 9 // English
CONST miLANG_JAPANESE = 17 // 日本語
// メモ帳に文字を書き BMP保存
id = Exec("notepad.exe")
SendStr(id, "2011/01/01 I am hungry", 1, True)
SCKey(id, VK_END, VK_RETURN, VK_RETURN) // キャレットを移動
SaveImg("test.bmp", id, 0, 0, 200, 32, True)
// BMPをOCRに読み込む
doc = CreateOLEObj("MODI.Document")
try
doc.Create("test.bmp")
except
doc.Create("test.bmp")
endtry
doc.OCR(miLANG_ENGLISH, False, False)
for i = 0 to doc.Images.Count-1
print doc.Images[i].Layout.Text
next

を実行するとメモ帳に 2011/01/01 I am hungry と書かれたのちuwsc.exe起動画面のすぐ上にprintによって2011101101 I am hungryと出力されています。MODIは問題ないと思うのですが、なぜデバッグするとSet doc = CreateObject("MODI.Document")が黄色の網掛けになるのでしょう?
長々と失礼しました。どうかよろしくお願いいたします。

閲覧数:
1,367
回答数:
1
お礼:
500枚

違反報告

ベストアンサーに選ばれた回答

jun********さん

2014/11/610:47:07

私は方法2を試しましたが、きちんと使用可能になりましたよ。手順5~6が重要なのですが、きちんと実施したのでしょうか。

とりあえずインストールした状態ならば、プログラムの追加と削除から、

Microsoft Office SharePoint Designer 2007

を選んで、変更をクリックしてください。構成をやり直すことができますので、Microsoft Office Document Imagingを「マイコンピュータから全て実行」に変更してみてください。

  • 質問者

    fir********さん

    2014/11/707:07:59

    すみません、別件が入ってしまって遅くなりました。
    申し訳ありません。
    プログラムの追加と削除にMicrosoft Office SharePoint Designer 2007が表示されていませんでした。
    方法1でインストールしたMODI to TIFF File Converter はありました。正常にインストールされなかったようなので、出直してきます。もう少々時間をください。

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2014/11/10 20:12:56

ありがとうございます。すみません、当方別件が立て込んでおりましてあまり進んでおりません。また改めて頑張ります。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる