How to I find/delete empty layers? (AS)

Question

Cleaning house on the files I get with 20 pages and 15 layers! Any input on how I can find and delete the empty layers via Applescript? Otherwise, I am first trying to move every item to one layer, then delete the empty layers. Long process....

Answer 1

G'day
You can use non-Applescript solutions to give you hints.
The above posts point to a property of layers which is also available through Applescript — page items.
So, maybe try...
tell application "Adobe InDesign CS4"
    activate
    tell active document
        repeat with x from (count layers) to 1 by -1
            get page items of layer x
            if result is {} then
                delete layer x
            end if
        end repeat
    end tell
end tell
m.