Delete Unused Paragraph Styles

Kasyan,

Thanks so much for that! I tweaked yours and here is the CS version:

tell application "InDesign CS"
set theDoc to active document
set myParagraphStyles to every paragraph style of theDoc
set theCount to count of myParagraphStyles
repeat with n from (count myParagraphStyles) to 2 by -1
set myCurrentStyle to item n of myParagraphStyles
my removeUnusedStyle(myCurrentStyle)
end repeat
end tell
on removeUnusedStyle(myStyle)
tell application "InDesign CS"
set find preferences to nothing
set change preferences to nothing
set theDoc to active document
search theDoc with find attributes {applied paragraph style:myStyle}
tell active document
set myFoundStyles to search theDoc with find attributes {find text:""}
if (count myFoundStyles) = 0 then
delete myStyle
end if
end tell
end tell
end removeUnusedStyle

I started my search at 2 instead of three so that it would check everything except for "[No Paragraph Style]", as Dave was saying before in the notes of his JavaScript version. This runs much faster than the one I wrote and it does get all the unused styles on the first pass. Thanks so much to all of you...this was exactly the help I needed!

hayden

Hayden,

Here is the same script translated into AS. Its for CS3 I dont have CS any more so I cant help you with it. Find/Change is totally different in CS so check out your scripting reference and make necessary changes.

Kasyan
------------------------------------
tell application Adobe InDesign CS3
set theDoc to active document
set myParagraphStyles to every paragraph style of theDoc
set theCount to count of myParagraphStyles
repeat with n from (count myParagraphStyles) to 3 by -1
set myCurrentStyle to item n of myParagraphStyles
my RemoveUnusedStyle(myCurrentStyle)
end repeat
end tell

on RemoveUnusedStyle(myStyle)
tell application Adobe InDesign CS3
set find text preferences to nothing
set change text preferences to nothing
set applied paragraph style of find text preferences to myStyle
tell active document
set myFoundStyles to find text
if (count myFoundStyles) = 0 then
delete myStyle
end if
end tell
end tell
end RemoveUnusedStyle

Dave/Kasyan,

Thanks so much for your help. Unfortunately, my greatest exposure to JavaScript happened just the other day when I read Dave's blog. I tried to translate your concepts into AppleScript, but I had a bit of trouble.

However, I was able get enough of the concept from your script to point me in the right direction, I think. It looks like both of you used a handler, but I just used a repeat loop. For the record, here's what I have:

tell application "InDesign CS"
set theDoc to document 1
set myParagraphStyles to every paragraph style of theDoc
set theCount to count of myParagraphStyles
repeat 5 times
repeat with i from 1 to theCount
try
set theStyle to paragraph style i of theDoc
set find preferences to nothing
set change preferences to nothing
set foundStyle to search theDoc with find attributes {applied paragraph style:theStyle}
if foundStyle is equal to {} then delete theStyle
set find preferences to nothing
set change preferences to nothing
end try
end repeat
end repeat
end tell

You'll notice that I am repeating it 5 times. This is because every style does not delete on one pass...or two or three. I think this might be because some of my documents have "next style" set to "[Same Style]", but I'm not totally sure if that is why all unused styles are not deleting on the first pass. At any rate, after running this script five times, all of my unused styles are deleted from my document.

If Shane, Ole or any of the Applescript gurus have any improvements to my script that may help it run faster, please post them here. I'd love to hear your suggestions. For now, this script is functional enough, though perhaps a bit clumsy.

Anyway, thanks so much for your help, Dave!

Hi Hayden,

Here I tried to implement Dave's idea. It's for CS3 and in JavaScript, but the same can be done in AS as well.

Kasyan
//--------------------------

var myDoc = app.activeDocument;

var myParStyles = myDoc.paragraphStyles;



for (i = myParStyles.length-1; i >= 2; i-- ){

   removeUnusedStyle(myParStyles)

}



function removeUnusedStyle(myStyle) {

   app.findTextPreferences = NothingEnum.nothing;

   app.changeTextPreferences = NothingEnum.nothing;

   app.findTextPreferences.appliedParagraphStyle = myStyle;

   var myFoundStyles = myDoc.findText();

      if (myFoundStyles == 0) {

         myStyle.remove();

      }

   app.findTextPreferences = NothingEnum.nothing;

   app.changeTextPreferences = NothingEnum.nothing;

}