Re: InDesign links list
Re: InDesign links list
- Subject: Re: InDesign links list
- From: Jeremy Sellors <email@hidden>
- Date: Tue, 14 Sep 2004 09:15:16 -0700
On Sep 13, 2004, at 2:39 PM, steve harley wrote:
set adFile to name of graphic --this is where I'm failing
here you are requesting a non-existant property from the object.. take a close look at the dictionary for InDesign CS.. the graphic class has no name property, but it does have an item link property.. the item link properties in turn are noted in the entry for the link class, and they include a file path property.. so the following change in addition to the above made your script work for me in a simple test (the Word part seemed to work fine):
set adFile to file path of item link of i
Unfortunately I don't have CS but with InDesign 2.0.2 this seems to work. It exports inserted ads info back to a Filemaker Pro 7 table that can be used to relate to matching file names in the run sheet and TextEdit:
property FMProFile : "iGenii SF.fp7"
set adList to ""
tell application "InDesign 2.0.2"
set AdsFound to links of front document whose needed is true
repeat with i in AdsFound
set linkedAdFileName to name of i
set AdPath to file path of i
set AdLinkFileType to link type of i
set InsertedAdModDate to date of i
if status of i is "link missing" then
set linkstatus to " Status Missing "
else
set linkstatus to " Status OK "
end if
set adPage to name of parent of parent of parent of i
set adList to adList & "Ad Name: \"" & linkedAdFileName & "\" at Path: \"" & AdPath & "\" File Type:\"" & AdLinkFileType & "\" Page Number: " & adPage & " " & linkstatus & return & return
tell application "A Main:Applications:FileMaker Pro 7:FileMaker Pro.app:"
tell document 1
set NRecord to create new record
tell NRecord
set cell "File Name" to linkedAdFileName as string
set cell "File Path" to AdPath as string
set cell "File Type" to AdLinkFileType
set cell "returned Link Mod Date" to InsertedAdModDate as string
set cell "InDesign Link Status" to linkstatus
set cell "Inserted on page" to adPage
end tell
end tell
end tell
end repeat
end tell
tell application "TextEdit"
activate
make new document at the beginning of documents
set the text of the front document to (adList as string)
end tell
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden