Re: Cascading Windows

After finding that some of my options changed for no good reason following
the upgrade to 2003, I simply added a list of preferences to my autonew and
autoopen macros. I know others are having problems too. I suspect it is an
extension of the minor corruptions in the Word data key in the registry that
has plagued Word with (for example) toolbar disappearances and sundry other
issues.

Even more annoying it seems that some users suffer problems with different
settings, probably because of the way they use Word, so it is difficult to
tie it down. FWIW the issues that affect me are corrected with:

Sub AutoNew()
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
With ActiveWindow.View
.Type = wdPrintView 'sets print layout view
'.Type = wdNormalView 'alternative for normal view
.Zoom.Percentage = 500 'fixes shrunken cursor issue
.Zoom.Percentage = 100
.FieldShading = wdFieldShadingWhenSelected
.ShowFieldCodes = False
.DisplayPageBoundaries = True
.ShowDrawings = True
End With
CommandBars("Reviewing").Visible = False
CommandBars("Drawing").Visible = False
CommandBars("Forms").Visible = False
End Sub

Sub AutoOpen()
'add docname and path to title bar
ActiveWindow.Caption = ActiveDocument.FullName
ActiveWindow.ActivePane.DisplayRulers = True
ActiveWindow.ActivePane.View.ShowAll = False
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
With ActiveWindow.View
.Type = wdPrintView
.Zoom.Percentage = 500
.Zoom.Percentage = 100
.FieldShading = wdFieldShadingWhenSelected
.ShowFieldCodes = False
.DisplayPageBoundaries = True
.ShowDrawings = True
End With
End Sub

Sub AutoExec()
CommandBars("Reviewing").Visible = False
CommandBars("Drawing").Visible = False
CommandBars("Forms").Visible = False
CommandBars("Mail Merge").Visible = False
Application.OnTime _
When:=Now + TimeValue("00:00:01"), Name:="CodesOff"
End Sub

Sub CodesOff()
On Error GoTo oops:
ActiveWindow.ActivePane.View.ShowAll = False
oops:
End Sub


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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

I have even considered recording all my preferences in these macros, but so
far it is only the ones raised here that cause me concern - especially the
rulers, the field codes and the drawings.

Tony Jollans wrote:
Graham,

I've been suspicious for some time that Word 2003 changes settings
all by itself but I usually put it down to user error as I routinely
change all manner of my own settings (just to see the effect).

Is there anything known about this? Are any particular settings more
susceptible than others? Does any particular type of action, or
document, tend to cause it?


"Graham Mayor" <gmayor@xxxxxxxx> wrote in message
news:eirw3r6LGHA.2580@xxxxxxxxxxxxxxxxxxxxxxx
Tony has identified the likely cause, but as this may happen again
(Word 2003 can do that), it would be worth adding the line
Application.ShowWindowsInTaskbar = True
to your macro to ensure it is correct each time you run it.

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Joanne wrote:
System: Dell Opti Flex, 1gb memory, winxp pro, MSoffice 2003

I use a macro called 'get files' to open 50 text files at a time -
here is the code for the macro, to which I have made no changes:

Public Sub GetFiles()

'Application.CommandBars("Main Menu").Visible = False
Dim Resumes As String, FileArray() As String, Num As Long, OpnFile
As Long
Dim PassNum As Integer, temp As String 'sorting variables
Dim Upper As Long 'Upper boundary of array
ReDim FileArray(150)
Num = 0 'Setting counter to 0
OpnFile = 0 'Setting counter to 0

Resumes = Dir$("C:\1\ceweekly\*.*") 'Where the files are at
Do While Len(Resumes) > 0 ' Loop to put files into an array
FileArray(Num) = Resumes
Num = Num + 1
Resumes = Dir$
Loop
ReDim Preserve FileArray(Num - 1)
Upper = UBound(FileArray)

' Sort array
WordBasic.SortArray FileArray

' Open the files for editing
For OpnFile = 0 To 49
If OpnFile <= Upper Then 'if there are files in the array
Documents.Open FileName:="C:\1\ceweekly\" _
& FileArray(OpnFile) 'then open the next one and increment
counter
ActiveWindow.ActivePane.View.Zoom.Percentage = 118

End If
If OpnFile = -1 Then
Application.Quit
End If
Next

End Sub

Until today, the files would open on top of each other on the screen
and in a 'group' in the taskbar. Now all of a sudden the files are
opening in 'cascading windows' which causes me to do a lot of extra
clicking and window moving so that the files are not on top of my
other 2 apps that I am running to process the files. I want them to
open in msword 2003 (which is living only on the top 50% of my
screen and allowing me to use the bottom 50% for the other 2 apps).
I don't remember making any changes anywhere and so I can't figure
out how to get this to work as it was before today, MSWord owns top
of screen, other apps own bottom of screen and all files open on
top of each other with no cascading down the screen. Can someone
please help me get this fixed? I tried using the
ApplicationWindowState and chose 'minimize', but then I have to
click them one at a time to get them on the screen again and they
come back in their cascaded position, leaving me with my other apps
behind them again. Don't know what else to try.
Thanks for your time and help
Joanne


.

Loading