複製を保存
なぜ複製を保存する必要があるのか知らないが、メニュー項目を実行する方法として。
Set app=CreateObject("InDesign.Application.CS2_J") set doc=app.ActiveDocument set WshShell = CreateObject("WScript.Shell") app.Activate WshShell.SendKeys "%F" WshShell.SendKeys "Y" WshShell.SendKeys "c:\untitled" WshShell.SendKeys "{enter}"