🚀 go-pugleaf

Below is a slightly more useful version that pops up a "list" of all the document's master page spreads instead of naming a specific spread in the script. You simply need to delete all but one of the master spread names (and all of the semi-colons) and click OK.

I am sure that it could be a much more clean selection list in Visual Basic but this was the only way that I could figure out using VBScript. (If any other ideas, I would welcome them.)

Regards,
Paul

Dim myInDesign
Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument

REM Count the pages and master spreads
numPages = myDocument.Pages.Count
numMasters = myDocument.MasterSpreads.Count

REM Create rough list of master spreads
For m = 1 To numMasters
    MasterList = MasterList & ";" & myDocument.MasterSpreads.Item(m).Name
Next
ValidName = 0

REM Select a master and determine if valid
SelectedMaster = InputBox("Below is a list of all the master spreads in this document." & Chr(13) & "Delete all but the one you will use.", "Select Master Spread", MasterList)

For m = 1 To numMasters
    If SelectedMaster = myDocument.MasterSpreads.Item(m).Name Then
        ValidName = 1

REM Cycle through pages
        For p = 1 To numPages
            Set myPage = myDocument.Pages.Item(p)

REM If correct master, print page
            If myPage.AppliedMaster.Name = SelectedMaster Then
               myDocument.PrintPreferences.PageRange = myPage.Name
               myDocument.PrintOut idPrintWithoutDialog
            End If
        Next
    End If
Next

If ValidName = 0 Then
    MsgBox "The master spread name was not valid.", 48, "Error"
End If