Re: Microsoft word

Subject: Re: Microsoft word

From: Peter Baxter <email@hidden>

Date: Tue, 7 Aug 2007 07:23:11 +1000

Delivered-to: email@hidden

Thanks Olaf,

It worked immediately. This is the script I will use. The script is run from within Filemaker which copies a field and pastes the result of this script back at the end of the check.

set theText to the clipboard

set theFile to "/Applications/Microsoft Office 2004/Grammar Checker.doc"

tell application "Finder"

if not (exists (file "Grammar Checker.doc" of folder "Microsoft Office 2004" of folder "Applications" of startup disk)) then

tell application "Microsoft Word"

activate

set theNewDoc to make new document

save as theNewDoc file name "Grammar Checker.doc"

end tell

end if

end tell

tell application "Microsoft Word"

activate

set active writing style active document language ID english aus writing style "Technical"

set deleteThis to the text object of active document

delete deleteThis

insert text theText at the end of text object of active document

check grammar text object of active document

check spelling text object of active document

select text object of active document

close up paragraph 1 of active document

copy object selection

save as active document file name "Grammar Checker.doc" with replacing

end tell

Applescript syntax is like English spelling:

Roughly, though not thoroughly, thought through.

Peter Baxter

email@hidden

_______________________________________________ Do not post admin requests to the list. They will be ignored. AppleScript-Users mailing list (email@hidden) Help/Unsubscribe/Update your Subscription: http://lists.apple.com/mailman/options/applescript-users/email@hidden Archives: http://lists.apple.com/archives/applescript-users This email sent to email@hidden

References:

>Microsoft word (From: Peter Baxter <email@hidden>)