Re: Cascading Windows

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?

--
Enjoy,
Tony


"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




.