🚀 go-pugleaf

thnaks Ole ,

I will work on it !!



Olav Kvern a �crit:
> Laurent--
> 
> Sorry, I was going to post the thread containing my function here, but I'm having a hard time finding the thread. Here's the subroutine I was talking about:
> 
> 
> 
> Private Sub Command1_Click() 
> Dim myInDesign As InDesign.Application 
> Dim myMasterSpread As InDesign.MasterSpread 
> Dim myPage As InDesign.Page 
> Set myInDesign = CreateObject("InDesign.Application.2.0") 
> Set myDocument = myInDesign.Documents.Add 
> Set myMasterSpread = myDocument.MasterSpreads.Item("A-Master") 
> Rem Delete one of the master spread's pages 
> myMasterSpread.Pages.Item(1).Delete 
> Set myPage = myMasterSpread.Pages.Item(1) 
> Rem Add four random rectangles to the page. 
> myPageHeight = myDocument.DocumentPreferences.PageHeight 
> myPageWidth = myDocument.DocumentPreferences.PageWidth 
> For myCounter = 1 To 8 
>     myX1 = myPageWidth * Rnd 
>     myX2 = myPageWidth * Rnd 
>     myY1 = myPageHeight * Rnd 
>     myY2 = myPageHeight * Rnd 
>     Set myRectangle = myPage.Rectangles.Add 
>     myRectangle.GeometricBounds = Array(myY1, myX1, myY2, myX2) 
>     Rem Label and color one of the rectangles. 
>     If myCounter = 4 Then 
>         myRectangle.FillColor = myDocument.Swatches.Item("Black") 
>         myRectangle.Label = "Delete this one" 
>     End If 
> Next 
> Set myMasterSpread = myDocument.MasterSpreads.Add 
> myMasterSpread.Pages.Item(1).AppliedMaster = myDocument.MasterSpreads.Item("A-Master").Pages.Item(1)
> 
> Set myPage = myDocument.Pages.Item(1) 
> myPage.AppliedMaster = myMasterSpread
> 
> myIndex = myFindMasterItemByLabel(myPage.AppliedMaster, "Delete this one") 
> If myIndex = Empty Then 
>     myIndex = myFindMasterItemByLabel(myPage.AppliedMaster.AppliedMaster, "Delete this one") 
> End If 
> myPage.MasterPageItems.Item(myIndex).Delete 
> Rem Choose Remove All Local Overrides from the Pages palette menu to see 
> Rem the overridden rectangle reappear. 
> End Sub 
> Private Function myFindMasterItemByLabel(myMasterPage, myLabel) 
> For myCounter = 1 To myMasterPage.PageItems.Count 
>     If myMasterPage.PageItems.Item(myCounter).Label = myLabel Then 
>         Rem The index of the item is the count of the item from the end of the list, 
>         Rem because PageItems are arranged in back-to-front order. But the MasterPageItems 
>         Rem collection for a page is indexed in the opposite order. So we have to return 
>         Rem the index using the following technique: 
>         myFindMasterItemByLabel = (myMasterPage.PageItems.Count - myCounter) + 1 
>         Exit Function 
>     End If 
> Next 
> End Function 
> 
> 
> 
> 
> The above demonstrates finding a master page item by its label--you could use other attributes, such as color, page position, etc.
> 
> Thanks,
> 
> Ole