🚀 go-pugleaf

Laurent-- 

Try this: 



Private Sub Command1_Click() 
Rem Compare/Copy fill color 
Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.Documents.Add 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
myTextFrame.GeometricBounds = myGetBounds(myDocument.Pages.Item(1), myDocument) 
myTextFrame.TextContents = "This is paragraph 1." & vbCr & "This is paragraph 2." 
Rem Create an example color. 
Set myColor = myDocument.Colors.Add 
myColor.ColorValue = Array(0, 100, 100, 0) 
myTextFrame.Paragraphs.Item(1).FillColor = myColor 
If myTextFrame.Paragraphs.Item(2).FillColor <> myColor Then 
    myTextFrame.Paragraphs.Item(2).FillColor = myColor 
End If 
End Sub 
Rem Function for returning "live" area from a page. 
Private Function myGetBounds(myPage, myDocument) 
    myPageHeight = myDocument.DocumentPreferences.PageHeight 
    myPageWidth = myDocument.DocumentPreferences.PageWidth 
    myX1 = myPage.MarginPreferences.MarginLeft 
    myY1 = myPage.MarginPreferences.MarginTop 
    myY2 = myPageHeight - myPage.MarginPreferences.MarginBottom 
    myX2 = myPageWidth - myPage.MarginPreferences.MarginRight 
    myGetBounds = Array(myY1, myX1, myY2, myX2) 
End Function 




Does it work for you? 

Thanks, 

Ole