Hallo,
Ik heb zelf het script aangepast, en ik ben er bijna uit! 
Maar ik heb ik nog 1 probleem, als ik wil dat multi-ad de file opend in de nieuwe map, gaat het verkeerd toch als ik de variabelen in geef. Geef ik manueel de map en nummer op lukt het wel maar dat is niet de bedoeling van het script.
-------------
--Vul hier de verwijzing in naar de map met mappen met nummers
property nummersmap : alias "KRANTEN:Fonteintje:578001-578500:"
property idemmap : alias "KRANTEN:Fonteintje:idems2:"
tell application "Finder"
--Vraag om het oude nummer
set oud_dialoog to display dialog "Oud nummer?" default answer ""
set oud_nummer to the text returned of oud_dialoog
--Vraag om het nieuwe nummer
set nieuw_dialoog to display dialog "Nieuw nummer?" default answer ""
set nieuw_nummer to the text returned of nieuw_dialoog
--Zoek de map met het oude nummer op
set oudmap to (folder oud_nummer of nummersmap) as alias
--Maak een nieuwe map met het nummer nieuw_nummer of kijk of er al een bestaat
if not (exists folder nieuw_nummer of idemmap) then
set nieuwmap to (make new folder at idemmap with properties {name:nieuw_nummer}) as alias
else
set nieuwmap to (folder nieuw_nummer of idemmap) as alias
end if
--Kopieer de bestanden naar de nieuwe map
set oud_files to every item of oudmap
duplicate oud_files to nieuwmap replacing yes
set nieuw_files to every item of nieuwmap
set nieuw_files to my convert_to_alias(nieuw_files)
--Zoek alle bestanden op waar het oude nummer in voorkomt en verander het naar het nieuwe nummer
set rename_list to every item of nieuwmap whose name contains oud_nummer
repeat with this_file in rename_list
set oude_naam to the name of this_file
set nieuwe_naam to my replace_chars(oude_naam, oud_nummer, nieuw_nummer)
set the name of this_file to nieuwe_naam
end repeat
end tell
--Dit is een handler om de file path van de Finder om te zetten naar alias paths
on convert_to_alias(these_files)
set alias_list to {}
repeat with this_file in these_files
set the end of alias_list to this_file as alias
end repeat
return alias_list
end convert_to_alias
on replace_chars(this_text, search_string, replacement_string)
set AppleScript's text item delimiters to the search_string
set the item_list to every text item of this_text
set AppleScript's text item delimiters to the replacement_string
set this_text to the item_list as string
set AppleScript's text item delimiters to ""
return this_text
end replace_chars
tell application "MultiAd Creator Pro"
activate
open {alias nieuw_nummer of nieuwmap of idemmap}
--open {alias "KRANTEN:Fonteintje:idems2:000000:000000"}
--hierboven is een map die ik manueel aangeduid heb met op het einde een fictieve bestandsnaam 000000
set flos to every text flow of document 1
repeat with flo in flos
set wds to every word of flo
set numWds to number of items of wds
repeat with i from 1 to numWds
if item i of wds is oud_nummer then
set text of word i of flo to nieuw_nummer
end if
end repeat
end repeat
end tell
------
Hopelijk, kan hier iemand een oplossing vinden want dit het einde van dit scriptje!!
THX!!!!
Gast
