Hi All,

Further to inserting text into a document. A little while ago I couldn't write
a script to save myself and I am still not sure that I can. Going back a couple
of months ago thanks to David Truong and a few others who posted a script that
gave me some ideas, I just simply made some changes and added a few extra items
to come up with the following script. Although the script works well for me and
I think it's the best thing since sliced bread, I have no doubt that you real
script writers out there could make a lot of improvements.

The script creates a list of items to choose from. Two of them are my name and
full address and the other is my name and company name only. The other items on
the list run different programs that I use on a daily basis. I got sick to
death of trying to remember all of the hot keys I had for Word and Excel and
Access and so on, so I put the programs into the menu list that way I only have
to remember one hot key.

You will need to put this script into your defaults script so that you can
bring it up at any time. and anywhere.Go to the bottom of your default.jss file
hit the enter  key a couple of times to give yourself a bit of room and paste
the following script. You need to make some obvious changes to put your details
in there instead of mine.   Then put your cursor anywhere inside the script and
press control D to bring up the script information dialog box. Make sure that
the "can be attached to key"  check box is checked,  Then TAB around to the
"Assign to"  field and press the key stroke you want to bring up the script.

Well at the risk of getting the script torn to shreds, I'm a very sensitive
person you know, here it goes.


Script MenuList ()Var
String MyMenu,
Int index

let MyMenu=
"|Name & Company Only" +
"|Name Full Details" +
"|Word for Windows" +
"|Eudora " +
"|Excel " +
"|Access " +
"|Backup Vistech Database" +
"|Dos Prompt"

Let index=DlgSelectItemInList (MyMenu, "Jim's Menu", true)
If (index==1 ) then
SayString ("Name & Company only")
Delay (1)
TypeString ("Jim Pipczak")
{Enter}
Delay (1)
TypeString ("Vistech A.V.T.")
{Enter}
{Enter}
ElIf (index==2 ) then
SayString ("Full details")
TypeString ("Jim Pipczak")
{Enter}
Delay (1)
TypeString ("Vistech A.V.T.")
{Enter}
Delay (1)
TypeString ("An RVIB Equipment Service")
{Enter}
Delay (1)
TypeString ("We can help you look into the future")
{Enter}
Delay (1)
TypeString ("201 High Street, Prahran Vic. 3181 Australia")
{Enter}
Delay (1)
TypeString ("Phone: 03 9520 5555  Fax: 03 9525 2065")
{Enter}
Delay (1)
TypeString ("EMail: [EMAIL PROTECTED]")
{Enter}
{Enter}
ElIf (index==3 ) then
SayString ("Starting Word for Windows")
Run ("winword.exe")
ElIf (index==4 ) then
SayString ("Starting Eudora version 4.1")
Run ("eudora.exe")
ElIf (index==5 ) then
SayString ("Starting Excel for Windows")
Run ("excel.exe")
ElIf (index==6 ) then
SayString ("Starting Access for Windows")
Run ("msaccess.exe")
ElIf (index==7 ) then
SayString ("Starting Backup Vistech Database")
Run ("vistback.bat")
ElIf (index==8 ) then
SayString ("Starting Dos Prompt")
Run ("command")

EndIf
EndScript


Jim Pipczak
Vistech A.V.T.
An RVIB Equipment Service
We can help you look into the future
201 High Street, Prahran Vic. 3181 Australia
Phone: 03 9520 5555  Fax: 03 9525 2065
EMail: [EMAIL PROTECTED]






At 09:18 PM 6/5/99 +0000, you wrote:
>I'm going to go out on a limb here, having proofed the JFW manuals, I
>feel I'm am unqualified expert (ha ha) on what the script language can
>and cannot do, and I don't ever recall seeing anything in there where
>JFW can actually print something or insert anything into a document.
>What it sounds like you're looking for is something on the order of a
>macro language or some info on how to use the macro facility of a word
>processor such as WordPerfect or MS-Word, if they even have such
>facilities.  I remember the older versions of WordPerfect could do
>this with one hand tied behind its back, but with the advent of
>Windows, I don't know any more.  But I think it's a safe bet for me to
>say that this is totally out of the realm of possibility for JFW.
>
>On Sat, 5 Jun 1999 11:24:58 -0000, you wrote:
>
>>
>>-----Original Message-----
>>From: RobCole <[EMAIL PROTECTED]>
>>To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
>>Date: Saturday, June 05, 1999 3:28 PM
>>Subject: [jfwscripts] Input Script
>>
>>
>>>From: "RobCole" <[EMAIL PROTECTED]>
>>>
>>>Hi,
>>>Can someone tell me where I can find an example of how to create a
>script
>>to
>>>make Jaws print text, such as using a hot key to print my mailing
>address.
>>>
>>>Thanks,
>>>Rob
>>>
>>>
>>>------------------------------------------------------------------------
>>>How has ONElist changed your life?
>>>Share your story with us at http://www.onelist.com
>>>------------------------------------------------------------------------
>>>Visit the jfw mailing list's scripts page at:
>>>http://jfw.cjb.net/files32/
>>
>>-
>>Visit the jfw ml web page: http://jfw.cjb.net
>
>-
>Visit the jfw ml web page: http://jfw.cjb.net

-
Visit the jfw ml web page: http://jfw.cjb.net

Reply via email to