Can I change the size of the blinking text cursor?

R

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?
 
S

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.
 
S

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! :)
 
S

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
 
G

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


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
S

Stefan Blom

Graham Mayor said:
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>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top