🚀 go-pugleaf

The following is a very simple script to do this, ID places WMF with no problem. Please note in this code the first page will aways be blank, I'm not taking the time to fix that:-)


' HOW TO
' Place this code in a VB aware app, say the Visual Basic Editor in Excel
' Add a reference to InDesign
' Set the myPath in RunMe, then run

Public myID As InDesign.Application
Public myDoc As InDesign.Document
Public myPage As InDesign.Page
Public myRect As InDesign.Rectangle
Public myPath As String
Public myImage As String
Public loopNum
Public mySizeArray(3)

Sub RunMe()
    Set myID = CreateObject("InDesign.Application")
    Set myDoc = myID.Documents.Add
    ' Where are the images?
    myPath = "C:\Documents and Settings\imcfadden\Desktop\OCR\images\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    loopNum = 1
    myImage = Dir(myPath)
    Do While Not (myImage = "")
        create_doc myPath, myImage ' run placing steps
        myImage = Dir
        loopNum = loopNum + 1
    Loop
End Sub
Sub create_doc(myPath, myImage)
    '-- NOTE First page will always be blank, this could be fixed, but ...
    Set myPage = myDoc.Pages.Add
    myID.ViewPreferences.HorzMeasurementUnits = idMSPoints
    myID.ViewPreferences.VertMeasurementUnits = idMSPoints
    Set myPage = myDoc.Pages.Item(-1)
    Set myRect = myPage.Rectangles.Add
    fix_sizes Array(36, 36, 756, 576)
    myRect.GeometricBounds = mySizeArray
    Set myPDF = myRect.Place(myPath + myImage)
    myPDF.Item(1).GeometricBounds = mySizeArray()
    myRect.Fit (idProportionally)
End Sub
Sub fix_sizes(mySizeArrayStart)
    myPageMod = myPage.DocumentOffset Mod 2
    If myPageMod = 0 Then
        mySizeArray(0) = mySizeArrayStart(0)
        mySizeArray(1) = mySizeArrayStart(1)
        mySizeArray(2) = mySizeArrayStart(2)
        mySizeArray(3) = mySizeArrayStart(3)
    Else
        mySizeArray(0) = mySizeArrayStart(0)
        mySizeArray(1) = mySizeArrayStart(1) + 612
        mySizeArray(2) = mySizeArrayStart(2)
        mySizeArray(3) = mySizeArrayStart(3) + 612
    End If
End Sub
</code?