0 Replies Latest reply on May 28, 2015 11:51 PM by sowmiyavaithi

    I need to have this Applescript translated so I can use on my Windows system. Is there anyone out there who could do this for me?

    sowmiyavaithi

      I need to have this Applescript translated so I can use on my Windows system. Is there anyone out there who could do this for me?

       

       

      --empty list

      copy "" to myList

       

      tell application "Adobe InDesign CS6"

          activate

          set myDoc to active document

         

          --set rulers to pixels

          set zero point of myDoc to {0, 0}

          set horizontal measurement units of view preferences of myDoc to pixels

          set vertical measurement units of view preferences of myDoc to pixels

         

          --ID Document name

          set myDocname to name of myDoc

         

          --start the list

          copy myDocname & ":" & return & return to myList

         

          tell myDoc

              repeat with myPage from 1 to count every page

                  tell page myPage

                     

                      --all of the doc page items as a list

                      set myPageList to all page items

                      repeat with pitem from 1 to (count items of myPageList)

                         

                          --select every item on the epage

                          select item pitem of myPageList

                          try

                              --a=Y, b=X, width=d-c, height= c-a

                              set {a, b, c, d} to geometric bounds of item pitem of myPageList

                             

                              --remove as integer if you want the dimensions as numbers—not rounded

                              set y to a as integer

                              set x to b as integer

                              set w to d - b as integer

                              set h to c - a as integer

                              -- page number

                              set pageNumber to name

                              --the page item's info added to the list

                              set myItem to "P:" & pageNumber & "  " & "X:" & x & "  " & "Y:" & y & "  " & "W:" & w & "  " & "H:" & h & return

                              copy myList & myItem & return to myList

                             

                          end try

                      end repeat

                  end tell

              end repeat

          end tell

         

          --display the list

          if myList is not "" then

              display dialog myList

          end if

      end tell