2 返信 最新の回答 日時: Jul 26, 2012 5:01 PM ユーザー:羽のばし

    参照設定しているのにエラー

    羽のばし

      こんにちは。

       

      標題の通りで困っております。

       

      環境:Win7、CS4、Microsoft Access2010

       

      AccessVBAで、参照設定の「Adobe InDesign CS4_J Type Libraly」にチェックを入れているのですが、

      変数宣言をしてもエラーが発生します。

       

      エラーが起こる記述(A)

       

      Dim f01ind1 As New InDesign.Application

       

      Private Sub コマンド0_Click()

          MsgBox (f01ind1.ActiveDocument.Name)

      End Sub

       

      実行すると実行時エラー430になります。

       

       

      以下のように記述するとうまくいきます。

       

      エラーの起こらない記述(B)

      Dim f01ind1 As Object

       

      Private Sub コマンド0_Click()

          Set f01ind1 = CreateObject("InDesign.Application.CS4_J")

          MsgBox (f01ind1.ActiveDocument.Name)

      End Sub

       

      ですがこれだと参照設定する意味がないような気がします。

       

      実はこれまでWinXP、Access2003、CS2の環境で

      VBAからInDesignCS2をいろいろと操作していたのですが、

      今の環境に変わると動かなくなりました。

      以前の環境だと、(A)のコードが正常に動いていただけに、

      腑に落ちないのです。

       

      今の環境で(A)のコードが動く方法を何かご存じではないでしょうか。

      よろしくお願いします。