A4の画像群からA3見開き画像を作成

'Photoshop CS2 A4ページを見開きA3ページにする
Dim app 'As Photoshop.Application
Dim doc1, doc2 'As Photoshop.Document
Dim PDFSO 'As Photoshop.PDFSaveOptions
Dim i 'As Integer
Dim w, h 'As Double

Set app = CreateObject("Photoshop.Application.9")
Set PDFSO = CreateObject("Photoshop.PDFSaveOptions.9")
With PDFSO
    .AlphaChannels = True
    .Annotations = True
    .EmbedColorProfile = True
    .EmbedFonts = True
    .Encoding = 2 'psPDFJPEG
    .Interpolation = False
    .JPEGQuality = 7
    .Layers = True
    .SpotColors = True
    .Transparency = False
    .UseOutlines = False
    .VectorData = True
End With

For i = 2 To 10 Step 2
    app.Preferences.RulerUnits = 4 'psMM
    Set doc1 = app.Open(CStr(i) & ".pdf")
    doc1.ResizeCanvas 420, 297, 1 'psTopLeft
    app.Preferences.RulerUnits = 1 'psPixels
    Set doc2 = app.Open(CStr(i + 1) & ".pdf")
    doc2.Selection.SelectAll
    w = doc2.Width
    h = doc2.Height
    doc2.Selection.Copy
    doc2.Close
    doc1.Selection.Select _
        Array(Array(w, 0), Array(w + w, 0), Array(w + w, h), Array(w, h))
    doc1.Paste
    doc1.Flatten
    doc1.SaveAs CStr(i) & "-" & CStr(i + 1) & ".pdf", PDFSO
    doc1.Close
Next