🚀 go-pugleaf

Gerald--

Something like this, I think:



Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.ActiveDocument 
For myPageCounter = 1 To myDocument.Pages.Count 
    myMasterItemExists = True 
    myMasterItemCounter = 1 
    Set myPage = myDocument.Pages.Item(myPageCounter) 
    Rem Turn normal error checking off and handle errors. 
    On Error Resume Next 
    Err.Clear 
    Do While myMasterItemExists = True 
        Set myMasterItem = myPage.MasterPageItems.Item(myMasterItemCounter) 
        If Err.Number <> 0 Then 
            myMasterItemExists = False 
        Else 
            myMasterItem.Unlink idMasterSpread 
            myMasterItemCounter = myMasterItemCounter + 1 
        End If 
    Loop 
    Rem Restore normal error checking. 
    On Error GoTo 0 
Next 




There are lots of other ways to do it. MasterPageItems is a somewhat odd object--as we've discussed in other threads.

Thanks,

Ole