Using "HourGlass" cursor in WordApp

[PaulDGoldstein]

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

 

[Jay Freedman]

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 anything
either.

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

 

[PaulDGoldstein]

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