set page length to cursor position plus 5 inches

I would like to have a macro that will set the page length to the position of the cursor plus 5 inches. I don’t understand the object model well enough to begin to write it. (And I know little more about the macro language than how to modify recorded macros.) Would someone please help me out? I would so appreciate it.