🚀 go-pugleaf

Why don't you play with this, it works for me on some frames but not the others. It is a starting point though, just start testing from here.

Public myInDesign As InDesign.Application
Public myDocument As InDesign.Document
Sub leading()
Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument
' count text frames so you can loop through and modify paragraphs
num_textframes = myDocument.TextFrames.Count
' loop through each text frame
For textframe_loop = num_textframes To 1 Step -1
' activate the text frame
Set myFrame = myDocument.TextFrames.Item(textframe_loop)
' select the paragraphs
Set myParagraph = myFrame.Paragraphs
' count paragraphs in frame
my_par_count = myParagraph.Count
If my_par_count = 1 Then
Else
End If
For par_loop = my_par_count To 1 Step -1
Set my_par_to_change = myParagraph.Item(par_loop)
' change leading
my_par_to_change.leading = 60
' next par_loop loop
Next
' next textframe_loop loop
Next
End Sub
Via testing and the scripting manual you should be able to do what you want.
Good luck,
iolaire