🚀 go-pugleaf

alan--

Try something like this:



--MakeLabel.as 
--Set the frame height to the height of the label  
--(in current measurement units).  
set myFrameHeight to 2 
--Set myFilePath to true to include the entire file  
--path in the label; set it to false to include  
--only the file name.  
set myFilePath to false 
tell application "InDesign CS" 
	set mySelection to selection 
	if (count mySelection) > 0 then 
		repeat with myItem in mySelection 
			if class of myItem is image � 
				or class of myItem is EPS � 
				or class of myItem is PDF then 
				--Item was selected with the Direct selection tool; 
				--set myItem to the frame containing the graphic. 
				set myItem to parent of myItem 
			end if 
			if class of myItem is rectangle � 
				or class of myItem is oval � 
				or class of myItem is polygon then 
				--Changed from "count page items" in 2.x 
				if (count graphics of myItem) > 0 then 
					set myLink to item link of graphic 1 of myItem 
					try 
						if myFilePath is true then 
							set myLinkName to file path of myLink 
						else 
							set myLinkName to name of myLink 
						end if 
					on error 
						set myLinkName to "File is embedded." 
					end try 
					my myMakeLabel(myItem, myLinkName, myFrameHeight) 
				end if 
			end if 
		end repeat 
	end if 
end tell

on myMakeLabel(myItem, myLinkName, myFrameHeight) 
	tell application "InDesign CS" 
		set myDate to ({the current date} as string) 
		set {myY2, myX1, myY1, myX2} to geometric bounds of myItem 
		set myY2 to myY1 + myFrameHeight 
		set myParent to parent of myItem 
		tell myParent 
			set myTextFrame to make text frame with properties {geometric bounds:{myY1, myX1, myY2, myX2}, contents:((myLinkName as string) & "   " & myDate)} 
		end tell 
	end tell 
end myMakeLabel



Thanks,

Ole