Using "HourGlass" cursor in WordApp

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

PaulDGoldstein - 15 Aug 2005 17:31 GMT

Does anyone know how to change the cursor from within a Word Macro?

I used to use Cmd.Hourglass = True, but that know longer works.

Then I declared LoadCursor and SetCursor, and tried
SetCursor(LoadCursor(0,IDC_WAIT)), but that doesn’t do anythin
either.

Any ideas

--
PaulDGoldstei

Reply to this Message

Jay Freedman - 15 Aug 2005 20:53 GMT

> Does anyone know how to change the cursor from within a Word Macro?
>
[quoted text clipped - 5 lines]
>
> Any ideas?

Nothing that complicated. You change the System.Cursor property:

Sub Wait_a_Bit()
Dim intWait As Long

StatusBar = "Please wait..."

For intWait = 1 To 100000
System.Cursor = wdCursorWait
Next intWait

StatusBar = "Task completed"
System.Cursor = wdCursorNormal
End Sub

Signature

Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Reply to this Message

PaulDGoldstein - 15 Aug 2005 22:03 GMT

Thanks, Jay.
I ended up figuring out the same thing myself. Don’t know how I misse
the Cursor option for the System. keyword in the first place.

Thanks again

--
PaulDGoldstei

Reply to this Message