🚀 go-pugleaf

Hi folks,

I've been handing out the following script in the Windows InDesign forum. It removes paragraph style overrides throughout the active document in all text and tables. I've had some requests for a Macintosh version of the script but I don't know AppleScript. Would someone be willing to convert this to Applescript and post is back to this forum? I'm a rather newbie programmer so you're welcome to modify the script to make it more efficient etc.

Thanks,
Phil Redman

Dim myInDesign As InDesign.Application
Dim myDocument As InDesign.Document

Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument
Set myStories = myDocument.Stories
Rem Remove paragraph style overrides in text
For Each Story In myStories
Set myParagraphs = Story.Paragraphs
For Each Paragraph In myParagraphs
Rem Reset the paragraph style to its current assigned value; clearing all style overrides
Paragraph.ParagraphStyle = Paragraph.ParagraphStyle
Next Paragraph
Next Story
End If

Rem Remove paragraph style overrides in tables
For Each Story In myStories
Set myTables = Story.Tables
For Each Table In myTables
Set myCells = Table.Cells
For Each Cell In myCells
Set myParagraphs = Cell.Paragraphs
For Each Paragraph In myParagraphs
Rem Reset the paragraph style to its current assigned value; clearing all style overrides
Paragraph.ParagraphStyle = Paragraph.ParagraphStyle
Next Paragraph
Next Cell
Next Table
Next Story
End If