Re: Help about Word
Re: Help about Word
- Subject: Re: Help about Word
- From: Paul Berkowitz <email@hidden>
- Date: Sun, 08 Jul 2007 08:36:36 -0700
- Thread-topic: Help about Word
On 7/8/07 4:35 AM, "KOENIG Yvan" <email@hidden> wrote:
>
> Le 6 juil. 07 à 21:33:22, KOENIG Yvan a écrit :
>
>> Youpi
>>
>> This time it works:
>>
>> property o : "Macintosh HD:Users:yvankoenig:Desktop:tarifs
>> assurance Bouchard.doc"
>>
>> set o to o as alias
>> if name extension of (info for o) is "doc" then my translate(o)
>>
>> on translate(original)
>> tell application "Finder"
>> set dossier to (container of original) as Unicode text
>> set nom to name of original
>> set nNom to text 1 thru -4 of nom & "rtf"
>> end tell
>> set pOrig to quoted form of (POSIX path of original)
>> set pdest to quoted form of (POSIX path of (dossier & nNom))
>> set theScript to "textutil -convert rtf -output " & pdest & " " &
>> pOrig
>> do shell script theScript
>> end translate
>>
>> Thanks you everybody.
>
>
> Hello
>
> the original asker told me that the script works but that the
> conversion loose several documents attributes which are preserved
> when he does the conversion by hand in Word.
>
> Is there somebody here knowing the way to drive Word so it will do
> the task automatically (a folder of about 500 files must be converted) ?
property o : "Macintosh HD:Users:yvankoenig:Desktop:tarifs assurance
Bouchard.doc"
if name extension of (info for (o as alias)) is "doc" then my translate(o)
on translate(o)
tell application "Microsoft Word"
open o -- path text OK
set n to text 1 thru -4 of o & "rtf"
save as active document file format format rtf file name n
close active document saving yes
end tell
tell application "Finder" to delete alias o
end translate
--
Paul Berkowitz
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden