Are you using the default cursor or some sort of variation downloaded from
the web?

--

JoAnn Paules
MVP Microsoft [Publisher]




"George Riley" wrote in message
...
Helmut,

The cursor blink rate is normal until something happens (see next
paragraph)
then the cursor procedes to blink rapidly for as much as 1.75 minutes then
goes back to the original normal blink rate. When the cursor blinks
rapidly,
it appears solid with rapid and apparently inconsistent blinks off (as
with
the spellchecker running).

This happens when: You change from the Word window and back, when
something
is typed *and* the cursor is moved, when you backspace to delete.

This does not happen when you type something but do not move the cursor,
it
does not happen when you move the corsor if you have not typed something,
it
stops when you save.

Turning off spell and grammar checking helped as did clearing the "Label
text with smart tags" tickbox (toolsautocorrect options Smart Tags tab).
Turning off "Allow background saves" had no apparent effect.

It seems like it's checking something. Will that change the blink rate?
Or
is the screen update causing the cursor to blink? This doesn't stop (for
a
long time) when the spell ad grammar checking is on.

Thanks,
George Riley


"Helmut Weber" wrote:

Hi George,

maybe something changed or is changing the blinking time.

Have a look at GetCaretBlinkTime and SetCaretBlinkTime
r
Option Explicit
' -----------------------

Declare Function SetCaretBlinkTime Lib "user32" _
(ByVal wMSeconds As Long) As Long
Declare Function GetCaretBlinkTime Lib "user32" () As Long

'---------------

Sub Test539()
MsgBox GetCaretBlinkTime
SetCaretBlinkTime (500) ' half a second is a common value
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"