MacroKing Posted March 26, 2004 Posted March 26, 2004 Here is the code ... sometimes it works fine, but sometimes it just keels over ... dim $StoryNum = 0, $end_story = 0 $StoryNum = InputBox("No. of Stories", "Enter the bottom story num on the screen", $StoryNum) $end_story = InputBox("No. of Stories", "Enter the last story to be done", $end_story) ;check to see that things are working properly. if no msgboxes, then no. if $StoryNum > $end_story then MsgBox ( 0, "Story number", "Story number is "&$StoryNum ) MsgBox ( 0, "last one", "Last story is "&$end_story) endif While $StoryNum >= $end_story Send($StoryNum&"{enter}") Sleep(250) Send("2{enter}") Sleep(250) Send("{right 2}") Sleep(250) Send("1{enter}") Sleep(250) Send("{right 2}") Sleep(250) Send("51{enter}") Sleep(250) Send("1{enter}") Sleep(10000) Sleep(10000) Sleep(10000) Send("{end 3}") $StoryNum = $StoryNum - 1 wend If I had a really good sig file, this is where it would go.
MacroKing Posted March 26, 2004 Author Posted March 26, 2004 DOH! I thought it would be something like that, but couldn't find a reference in the help section on datatypes. perhaps we should add one ... and here is one more wrinkle. It works -- as currently written without forcing the datatype -- IF you use the mouse to click the `OK' button, instead of using the <enter> key ... cheers et thanks. If I had a really good sig file, this is where it would go.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now