複製を保存

なぜ複製を保存する必要があるのか知らないが、メニュー項目を実行する方法として。

 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}"