一応これでいくかな。
パッケージにするならもう一手間かかるけれど。

必ずコピーしたドキュメントで実行して下さい。
処理したいドキュメントを開いた状態でスクリプトを実行します。


global a1, a2, a3
tell application "Adobe InDesign CS2_J"
   tell document 1 to set {a1, a2, a3} to {name, file path as Unicode text, spreads}
   a4() of me
   repeat with a5 from 1 to count a3
       set a6 to open alias (a2 & a5 & a1 as Unicode text) without showing window
       tell a6
           try
               if not a5 = (count a3) then delete (spreads (a5 + 1) thru (count a3))
           end try
           try
               if not a5 = 1 then delete (spreads 1 thru (a5 - 1))
           end try
           
           close saving yes
       end tell
   end repeat
   
end tell

on a4()
   tell application "Finder" to repeat with a5 from 1 to count a3
       set a6 to duplicate alias (a2 & a1 as Unicode text)
       set name of a6 to (a5 & a1 as Unicode text)
   end repeat
end a4

なんと！わざわざありがとうございます！
助かります。試してみます。
後ほどご報告させていただきますね。