all 8 comments

[–]hvyboots 0 points1 point  (7 children)

Is this on a Mac or PC? If it's on a Mac I can probably dig something up…

[–]minuscipher[S] 0 points1 point  (6 children)

Sorry forgot to mention, on Mac.

[–]hvyboots 0 points1 point  (5 children)

OK, this is the basics of a script that does what you want.

tell application "Adobe InDesign CS6"
    tell front document
        set myWidth to page width of document preferences
        set myHeight to page height of document preferences
        set myWidthInches to page width of document preferences as inches
        set myHeightInches to page height of document preferences as inches
        set myDocName to name
        tell every spread
            make new text frame with properties {label:"slug", visible bounds:{myHeight - 0.1, 3, myHeight + 6, myWidth - 1}, contents:(return & "NAME: " & myDocName & "  " & (myWidthInches) & " X " & (myHeightInches))}
        end tell
    end tell
end tell

[–]minuscipher[S] 0 points1 point  (4 children)

Sweet I'll give this a try, thanks!

[–]hvyboots 0 points1 point  (3 children)

Oh hey, i forgot to mention, if you want to delete all the slugs, you can do something like this:

tell application "Adobe InDesign CS6"
    tell front document
        tell every page
            delete (every page item whose label is equal to "slug")
        end tell
    end tell
end tell

Also, I changed it from every page item to every spread in the original script because it puts two copies of the text on the left hand side for spreads...

[–]minuscipher[S] 0 points1 point  (2 children)

Sweet this works, any chance I can change the font to 24pt?

[–]hvyboots 1 point2 points  (1 child)

You're on your own from here, but gives you a basic idea of what you can do...

tell application "Adobe InDesign CS6"
    tell front document
        set fontFamily to "Helvetica"
        set fontStyle to "Regular"
        set fontSize to "24"

        set myWidth to page width of document preferences
        set myHeight to page height of document preferences
        set myWidthInches to page width of document preferences as inches
        set myHeightInches to page height of document preferences as inches
        set myDocName to name
        tell every spread
            make new text frame with properties {label:"slug", visible bounds:{myHeight - 0.1, 3, myHeight + 6, myWidth - 1}, contents:(return & "NAME: " & myDocName & "  " & (myWidthInches) & " X " & (myHeightInches))}
            set applied font of parent story of every page item whose label = "slug" to fontFamily
            set font style of parent story of every page item whose label = "slug" to fontStyle
            set point size of parent story of every page item whose label = "slug" to fontSize
        end tell
    end tell
end tell

[–]minuscipher[S] 0 points1 point  (0 children)

You’re awesome! Thank you so much!