🚀 go-pugleaf

Iolaire--

John wants to change the first baseline offset calculation method, not set the leading of the paragraph. What he's looking for is a property of the TextFramePreferences object.

John--

Try something like this:



Rem Change the first baseline offset method for all text frames 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.ActiveDocument 
Rem The following will catch all text frames that are not in groups 
Rem or inside other items (i.e., inline text frames and text frames 
Rem pasted inside other page items. 
For myCounter = 1 To myDocument.TextFrames.Count 
    Set myTextFrame = myDocument.TextFrames.Item(myCounter) 
    Set myTextFramePreferences = myTextFrame.TextFramePreferences 
    myTextFramePreferences.FirstBaselineOffset = idAscent 
Next 
Rem To catch the text frames on the master pages... 
For myCounter = 1 To myDocument.MasterSpreads.Count 
    Set myMasterSpread = myDocument.MasterSpreads.Item(myCounter) 
    For myTextFrameCounter = 1 To myMasterSpread.TextFrames.Count 
        Set myTextFrame = myDocument.TextFrames.Item(myTextFrameCounter) 
        Set myTextFramePreferences = myTextFrame.TextFramePreferences 
        myTextFramePreferences.FirstBaselineOffset = idAscent 
    Next 
Next 




In my opinion, idLeading is a much better way to set the first line baseline position. If you use idAscent, you can never really know where the first baseline will appear, as the size of the characters/inline frames in the first line of text will set the distance from the top of the text frame. The only reason I can see to use idAscent is to make converted PageMaker and QuarkXPress documents look more like they did in those applications (QuarkXPress first baseline calculation methods are *always* inaccurate; PageMaker's can be if you are not using the Baseline leading method).

To find each inline graphic, try something like this:



Rem FindInlinesAndSetFitOption 
Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
myInDesign.FindPreferences = idNothing 
myInDesign.ChangePreferences = idNothing 
Set myDocument = myInDesign.ActiveDocument 
Rem Use the metacharacter ^g to find inline frames. 
Set myFoundItems = myDocument.Search("^g") 
For myCounter = 1 To myFoundItems.Count 
    Set myItem = myFoundItems.Item(myCounter) 
    Set myFrame = myItem.Inlines.Item(1) 
    If myFrame.ContentType = idGraphic Then 
        myFrame.Fit idFrameToContent 
    End If 
Next 




Thanks,

Ole