set iLimit to 27 
 
tell application "Adobe InDesign CS2" 
	set aDoc to active document 
	set allLinks to every link of aDoc 
	repeat with n from 1 to count allLinks 
		set aLink to item n of allLinks 
		set aName to name of aLink 
		if status of aLink is normal then 
			if length of aName > iLimit then 
				set myDialog to make dialog with properties {name:"Zu langer Dateiname"} 
				tell myDialog 
					make dialog column 
					tell the result 
						set aLabel to (length of aName as text) & " Zeichen" 
						make static text with properties {static label:aLabel} 
						set nField to (make text editbox with properties {edit contents:aName}) 
					end tell 
				end tell 
				set nu to show myDialog 
				if nu is true then 
					set nuName to edit contents of nField 
					set aFile to file path of aLink 
					tell application "Finder" 
						set aPath to folder of file aFile 
						set nuFile to duplicate aFile 
						set name of nuFile to nuName 
						set nuFile to (file nuName of aPath) as alias 
					end tell 
					relink aLink to nuFile 
					update aLink 
				else 
					return 
				end if 
			end if 
		end if 
	end repeat 
end tell 

set iLimit to 31 
 
tell application "Adobe InDesign CS2" 
	set allDocs to every document 
	repeat with nDoc from 1 to count allDocs 
		set aDoc to document nDoc 
		set allLinks to every link of aDoc 
		repeat with n from 1 to count allLinks 
			set aLink to item n of allLinks 
			set aName to name of aLink 
			if status of aLink is normal then 
				if length of aName > iLimit then 
					set myDialog to make dialog with properties {name:"Zu langer Dateiname"} 
					tell myDialog 
						make dialog column 
						tell the result 
							set aLabel to (length of aName as text) & " Zeichen" 
							make static text with properties {static label:aLabel} 
							set nField to (make text editbox with properties {edit contents:aName}) 
						end tell 
					end tell 
					set nu to show myDialog 
					if nu is true then 
						set nuName to edit contents of nField 
						set aFile to file path of aLink 
						tell application "Finder" 
							set aPath to folder of file aFile 
							set nuFile to duplicate aFile 
							set name of nuFile to nuName 
							set nuFile to (file nuName of aPath) as alias 
						end tell 
						relink aLink to nuFile 
						update aLink 
					else 
						return 
					end if 
				end if 
			end if 
		end repeat 
		set dName to name of aDoc 
		display dialog "Dokument " & nDoc & " erledigt" 
	end repeat 
end tell