It must be something peculiar to your PC as a document with that macro does
nothing to misbehave here.
You can fix this problem permanently by adding the following lines to an
autonew macro in normal.dot
With ActiveWindow.View
.Type = wdPrintView
.Zoom.Percentage = 500
.Zoom.Percentage = 100 'set your preferred percentage
End With
see
http://www.gmayor.com/installing_macro.htm
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
JustSomeGuy wrote:
In case it helps someone figure out why this happens, I noticed that
the problem for me began as soon as I opened a document in which I
had just recorded a macro and had set macro security to medium so
that it would function (with the usual macro nag message.) As soon
as I opened that document, the cursor became tiny in all subsequent
Word .docs. The 'fix' described below worked great for me....until
later in the day when I re-opened that original document containing
my macro. The cursor immediately became tiny again. So, at least on
my PC, it's controllably repeatable.
There's nothing very strange about my macro - it's just something
simple that I recorded with Word's Macro button. So I'm wondering if
this tiny cursor problem is either triggered in some cases by some
combination of macro enablement and macro security settings, or
possibly it's a yet-undiscovered Word macro virus that has stealthily
infected thousands of PCs but only gets activated when someone
enables macros and/or configure macro security a certain way.
Here's the macro I recorded, in case anyone's curious..it just
creates a macro 'button' entiitled "New Event" that when
single-clicked, initiates a one- line entry into my daily 'event log'
and then re-creates itself at the top of the page for the next
invocation. I use it to list the important things that happened each
day:
Sub anevent()
'
' anevent Macro
' Macro recorded 7/4/07 by Bob
'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:= _ "MACROBUTTON anevent New Event",
PreserveFormatting:=False Selection.TypeParagraph
Selection.TypeParagraph
With Selection.ParagraphFormat
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth025pt
.Color = wdColorBlack
End With
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With .Borders
.DistanceFromTop = 1
.DistanceFromLeft = 4
.DistanceFromBottom = 1
.DistanceFromRight = 4
.Shadow = False
End With
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth025pt
.DefaultBorderColor = wdColorBlack
End With
Selection.InsertDateTime DateTimeFormat:="M/d/yy h:mm AM/PM", _
InsertAsField:=False
Selection.TypeText Text:=": "
Options.ButtonFieldClicks = 1
End Sub
I know this is a bit late and many of you may have found a cure but I
thought I would post the solution I used to solve the problem for any
future sufferers:
1) Shut down Microsoft Word (and Outlook if it uses Word).
2) Go to Documents and Settings\[username]\Application Data\Microsoft
\Templates and rename normal.dot to "normal1.dot".
3) Start Word, close the blank document that appears, and load the
'problem' document template (now normal1.dot) using file-open and
navigating to it as in 2).
4) Correct the cursor (if neccesary) and add a toolbar using view-
toolbars (I selected 'Email').
5) Save the document and exit Word
6) Go back to Templates and delete the newly created normal.dot and
rename "normal1.dot" back to "normal.dot"
7) restart Word and remove the toolbar you added (just to return to
your previous layout).
This worked for me so I hope it is a universal fix.