VBA等でjavascript起動は可能？
[438]VBA等でjavascript起動は可能？ |
投稿者：h |
投稿日：2007/12/06(Thu) 19:49:53
いつもお世話になります。
VBA等で、InDesignを起動し、ある特定のInDesignのjavascriptを起動する事は可能でしょうか？
ExcelかAccessからデータをテキストにし（VBAにて）InDesignの表をjavascriptにて作成したいのです。
すでに表作成のjavascriptはあるので、このような処理にしたいのです。
コマンドライン等で、InDesignとjavascriptが起動する流れでもいいのですが…。
環境は、
Windows XP
InDesign CS2
です。
どうか、よろしくお願いします。
VBA等で、InDesignを起動し、ある特定のInDesignのjavascriptを起動する事は可能でしょうか？
ExcelかAccessからデータをテキストにし（VBAにて）InDesignの表をjavascriptにて作成したいのです。
すでに表作成のjavascriptはあるので、このような処理にしたいのです。
コマンドライン等で、InDesignとjavascriptが起動する流れでもいいのですが…。
環境は、
Windows XP
InDesign CS2
です。
どうか、よろしくお願いします。
» 1
[439]Re: VBA等でjavascript起動は可能？ |
投稿者：匿名A |
投稿日：2007/12/07(Fri) 06:44:01
DoScriptでできませんか？
» 2
[441]Re: VBA等でjavascript起動は可能？ |
投稿者：CL |
投稿日：2007/12/07(Fri) 11:21:57
ちょうど同じ話題が、
[4325]WIN script
https://dtp-bbs.com/indesignbbs/archives/4325win_script_20040507150600.html
にありました。当方の環境（Windows XP,InDesign CS2,
Excel 2003）で試したところ、問題なく動作しました。
VBAコード（Book1のModule1）：
Sub test()
Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.CS2_J")
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set Path_Tmp = myFileSystemObject.GetFile("d:\test.js")
myInDesign.DoScript Path_Tmp, idJavascript
End Sub
JavaScriptコード（d:\test.js）
alert('hoge');
» 3
[4325]WIN script
https://dtp-bbs.com/indesignbbs/archives/4325win_script_20040507150600.html
にありました。当方の環境（Windows XP,InDesign CS2,
Excel 2003）で試したところ、問題なく動作しました。
VBAコード（Book1のModule1）：
Sub test()
Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.CS2_J")
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set Path_Tmp = myFileSystemObject.GetFile("d:\test.js")
myInDesign.DoScript Path_Tmp, idJavascript
End Sub
JavaScriptコード（d:\test.js）
alert('hoge');
[442]Re: VBA等でjavascript起動は可能？ |
投稿者：CL |
投稿日：2007/12/07(Fri) 11:29:39
もうちょっとテストしたら、
Sub test()
Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.CS2_J")
myInDesign.DoScript "d:\test.js", idJavascript
End Sub
でも動きました。
» 4
Sub test()
Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.CS2_J")
myInDesign.DoScript "d:\test.js", idJavascript
End Sub
でも動きました。
[443]Re: VBA等でjavascript起動は可能？ |
投稿者：h |
投稿日：2007/12/07(Fri) 15:23:33
匿名Aさん、CLさん、ありがとうございました。
無事に動かす事が出来ました。
一応、ネットで色々と探してみたつもりでしたが、過去ログは気がつきませんでした。
こういうのって、あせっていると、どうしても身近な物に気が回らないんです…。
（言い訳ですが）
必死になって探してから、マニュアルやHelpの存在に気づくなんて事もあります。
スクリプト関係は初心者なので、余計に探し方に苦労したりしてます…。
今後は落ち着いて対処したいと思います。
無事に動かす事が出来ました。
一応、ネットで色々と探してみたつもりでしたが、過去ログは気がつきませんでした。
こういうのって、あせっていると、どうしても身近な物に気が回らないんです…。
（言い訳ですが）
必死になって探してから、マニュアルやHelpの存在に気づくなんて事もあります。
スクリプト関係は初心者なので、余計に探し方に苦労したりしてます…。
今後は落ち着いて対処したいと思います。
この記事の書き込み元へのリンク （コメントや質問などはこちらへどうぞ）