Can I change the size of the blinking text cursor?

[rdelau3]

My blinking text cursor in Word 2003 shrunk to half its original
size. I tried the fixes posted previously to zoom to 500% and back to
100%. This fixes the problem temporarily for the current document,
however, when i close the document and reopen it, the cursor reverts
to the small size. Is there a permanent solution to this problem?

 

[Stefan Blom]

There are examples of auto macros that fix the cursor size in the
following article: http://www.gmayor.com/installing_macro.htm. The
article also explains how to install the macros.

 

[Stefan Blom]

Add the following AutoNew and AutoOpen macros to normal.dot:

Sub AutoNew()
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End Sub

Sub AutoOpen()
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End Sub

See also http://www.gmayor.com/installing_macro.htm.

 

[Stefan Blom]

This is getting silly! ActiveDocument should be replaced with ActiveWindow in
the code below. :-(

You'd better go directly to Graham Mayor's web site for the correct code!

 

[Stefan Blom]

Sorry, I forgot part of the syntax. Here's the correct code:

Sub AutoNew()
With ActiveDocument.View
.Type = wdPrintView 'or wdNormalView
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End With

End Sub

Sub AutoOpen()

With ActiveDocument.View
.Type = wdPrintView 'Or wdNormalView
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End With

End Sub

 

[Graham Mayor]

I think what you meant was

Sub AutoNew()
With ActiveWindow.View
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End With
End Sub

Sub AutoOpen()
With ActiveWindow.View
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End With
End Sub




--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Stefan Blom]

I think what you meant was

Sub AutoNew()
With ActiveWindow.View
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End With
End Sub

Sub AutoOpen()
With ActiveWindow.View
.Zoom.Percentage = 500 'fix the tiny cursor error
.Zoom.Percentage = 100 'set the display zoom to 100%
End With
End Sub

Indeed, everything went wrong in this thread! <g>