Re: Re: Word Macro

Thanks for that Michael.  Just what I want.

regards

Richard

On 17/03/2007, at 1:47 PM, Mercury Knight wrote:

> <x-tad-bigger>Where is the Word Macro located?</x-tad-bigger>
>
> <x-tad-bigger> --- In </x-tad-bigger><x-tad-bigger>librie@xxxxxxxxxxxxxxx</x-tad-bigger><x-tad-bigger>, Michael Washington <michaelwa@...> wrote:</x-tad-bigger>
> <x-tad-bigger> ></x-tad-bigger>
> <x-tad-bigger> > Someone published a Microsoft Word Macro to format text documents for </x-tad-bigger>
> <x-tad-bigger> > the Sony E-Reader. I took the macro and recreated it in Applescript </x-tad-bigger>
> <x-tad-bigger> > so you can use it to format documents in Microsoft Word 2004 for OSX.</x-tad-bigger>
> <x-tad-bigger> > </x-tad-bigger>
> <x-tad-bigger> > tell application "Microsoft Word"</x-tad-bigger>
> <x-tad-bigger> > (* Select the entire contents of the active document *)</x-tad-bigger>
> <x-tad-bigger> > set myrange to text object of active document</x-tad-bigger>
> <x-tad-bigger> > select myrange</x-tad-bigger>
> <x-tad-bigger> > (* clear formatting of document and set desired font properties *)</x-tad-bigger>
> <x-tad-bigger> > clear formatting of selection</x-tad-bigger>
> <x-tad-bigger> > set myfontobject to font object of myrange</x-tad-bigger>
> <x-tad-bigger> > tell myfontobject</x-tad-bigger>
> <x-tad-bigger> > set name to "Times New Roman"</x-tad-bigger>
> <x-tad-bigger> > set font size to "14"</x-tad-bigger>
> <x-tad-bigger> > set ascii name to "Times New Roman"</x-tad-bigger>
> <x-tad-bigger> > set other name to "Times New Roman"</x-tad-bigger>
> <x-tad-bigger> > set bold to "False"</x-tad-bigger>
> <x-tad-bigger> > set italic to "False"</x-tad-bigger>
> <x-tad-bigger> > end tell</x-tad-bigger>
> <x-tad-bigger> > </x-tad-bigger>
> <x-tad-bigger> > set selFind to find object of myrange</x-tad-bigger>
> <x-tad-bigger> > set forward of selFind to true</x-tad-bigger>
> <x-tad-bigger> > set format of selFind to false</x-tad-bigger>
> <x-tad-bigger> > set match case of selFind to false</x-tad-bigger>
> <x-tad-bigger> > set match whole word of selFind to false</x-tad-bigger>
> <x-tad-bigger> > set match byte of selFind to false</x-tad-bigger>
> <x-tad-bigger> > set match wildcards of selFind to false</x-tad-bigger>
> <x-tad-bigger> > set match sounds like of selFind to false</x-tad-bigger>
> <x-tad-bigger> > set match all word forms of selFind to false</x-tad-bigger>
> <x-tad-bigger> > set wrap of selFind to find continue</x-tad-bigger>
> <x-tad-bigger> > (* This step replaces hard page breaks *)</x-tad-bigger>
> <x-tad-bigger> > tell selFind</x-tad-bigger>
> <x-tad-bigger> > set content to "^m"</x-tad-bigger>
> <x-tad-bigger> > set content of replacement of selFind to ""</x-tad-bigger>
> <x-tad-bigger> > execute find wrap find find continue replace replace all with match </x-tad-bigger>
> <x-tad-bigger> > forward</x-tad-bigger>
> <x-tad-bigger> > end tell</x-tad-bigger>
> <x-tad-bigger> > (* This step replaces the correct paragraph mark with a temporary </x-tad-bigger>
> <x-tad-bigger> > sign "#*#", if your document has that sign, replace it with some </x-tad-bigger>
> <x-tad-bigger> > other special character. *)</x-tad-bigger>
> <x-tad-bigger> > tell selFind</x-tad-bigger>
> <x-tad-bigger> > set content to "^p^p"</x-tad-bigger>
> <x-tad-bigger> > set content of replacement of selFind to "#*#"</x-tad-bigger>
> <x-tad-bigger> > execute find wrap find find continue replace replace all with match </x-tad-bigger>
> <x-tad-bigger> > forward</x-tad-bigger>
> <x-tad-bigger> > end tell</x-tad-bigger>
> <x-tad-bigger> > (* This step will replace the inappropriate line break with a space. *)</x-tad-bigger>
> <x-tad-bigger> > tell selFind</x-tad-bigger>
> <x-tad-bigger> > set content to "^p"</x-tad-bigger>
> <x-tad-bigger> > set content of replacement of selFind to " " (* if there is a space </x-tad-bigger>
> <x-tad-bigger> > at the end of the line change this to "" *)</x-tad-bigger>
> <x-tad-bigger> > execute find wrap find find continue replace replace all with match </x-tad-bigger>
> <x-tad-bigger> > forward</x-tad-bigger>
> <x-tad-bigger> > end tell</x-tad-bigger>
> <x-tad-bigger> > (* This step will return the paragraph break to normal *)</x-tad-bigger>
> <x-tad-bigger> > tell selFind</x-tad-bigger>
> <x-tad-bigger> > set content to "#*#"</x-tad-bigger>
> <x-tad-bigger> > set content of replacement of selFind to "^p^p"</x-tad-bigger>
> <x-tad-bigger> > execute find wrap find find continue replace replace all with match </x-tad-bigger>
> <x-tad-bigger> > forward</x-tad-bigger>
> <x-tad-bigger> > end tell</x-tad-bigger>
> <x-tad-bigger> > </x-tad-bigger>
> <x-tad-bigger> > </x-tad-bigger>
> <x-tad-bigger> > end tell</x-tad-bigger>
> <x-tad-bigger> ></x-tad-bigger>
>
> <x-tad-bigger>__._,_.___</x-tad-bigger><x-tad-bigger> </x-tad-bigger>
> <x-tad-bigger> Messages in this topic </x-tad-bigger><x-tad-bigger> </x-tad-bigger><x-tad-bigger>(</x-tad-bigger><x-tad-bigger>2</x-tad-bigger><x-tad-bigger>) </x-tad-bigger><x-tad-bigger> </x-tad-bigger><x-tad-bigger>Reply  </x-tad-bigger><x-tad-bigger>(via web post) </x-tad-bigger><x-tad-bigger> </x-tad-bigger><x-tad-bigger>|  </x-tad-bigger><x-tad-bigger>Start a new topic</x-tad-bigger><x-tad-bigger> </x-tad-bigger>
> Messages |  Files |  Photos |  Links |  Database |  Polls |  Calendar 
> <ma_grp_160.gif> 
> Change settings via the Web (Yahoo! ID required) 
>  Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional 
>  Visit Your Group  |  Yahoo! Groups Terms of Use  |  Unsubscribe 
> Recent Activity
> <x-tad-bigger>	 </x-tad-bigger><x-tad-bigger>25</x-tad-bigger>
> <x-tad-bigger>New Members</x-tad-bigger>
> <x-tad-bigger> Visit Your Group</x-tad-bigger><x-tad-bigger> </x-tad-bigger>
> SPONSORED LINKS
> 	▪ <x-tad-bigger>Book publishing</x-tad-bigger>
> 	▪ <x-tad-bigger>Book self publishing</x-tad-bigger>
> 	▪ <x-tad-bigger>Book publishing company</x-tad-bigger>
> 	▪ <x-tad-bigger>Electronic publishing</x-tad-bigger>
> 	▪ <x-tad-bigger>Literature book</x-tad-bigger>
> <x-tad-bigger>Apprentice LA</x-tad-bigger>
> <x-tad-bigger>Who will be next?</x-tad-bigger>
> <x-tad-bigger>Play the Bix.com</x-tad-bigger>
> <x-tad-bigger>faceoff to see!</x-tad-bigger>
> <x-tad-bigger>Y! Toolbar</x-tad-bigger>
> <x-tad-bigger>Get it Free!</x-tad-bigger>
> <x-tad-bigger>easy 1-click access</x-tad-bigger>
> <x-tad-bigger>to your groups.</x-tad-bigger>
> <x-tad-bigger>Yahoo! Groups</x-tad-bigger>
> <x-tad-bigger>Start a group</x-tad-bigger>
> <x-tad-bigger>in 3 easy steps.</x-tad-bigger>
> <x-tad-bigger>Connect with others.</x-tad-bigger>
> <x-tad-smaller>.</x-tad-smaller>
> <serv.gif> 
> __,_._,___