#Macro
3 messages in this thread
Clark
Are you still looking for a macro to get text from the cursor to the
end of the page? And are you still here? I don't know why ProWrite
never answered you, but I have a macro for you if you want it.
-Tom
Tom,
I'm still here. I'd love to see the macro. Thanks!
Clark -|-
Williams –O-o-O– Via George
Here it is Clark:
/* Test of Get to end of Page Macro (PW 3.3.1) */
Options Results
i = 0
SetBookMark /* So we can get back */
CurrentPage ; here = result /* Found out the page we're on */
/*********************************************************************
* This loop walks to next page and counts the lines *
*********************************************************************/
do until there = here + 1
CursorDown
CurrentPage
there = result /* To see if we change pages */
i = i + 1
end
GotoBookMark /* Go to cursor start posistion */
CtrlDown /* Sets up for marking text */
/*********************************************************************
* This loop walks to the end of the page *
*********************************************************************/
do y = i to 2 by -1
CursorDown
end
AltDown /* These two make sure you get */
CursorRight /* everything on the last line */
/* This may need to be reworked*/
/*********************************************************************
* This is put here to show results *
*********************************************************************/
Copy
New
Paste
/* END OF PROGRAM */
Things would be faster and simpler if PW marcos (like CurrentPage) worked with
the Alt key was down. OR if they had Arexx commands that did the mouse click
and shifted mouse click. I have asked for both of these things before. Still
not in PW.
-Tom