Re: Cascading Windows

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


.

Relevant Pages

  • Cascading Windows
    ... Dim Resumes As String, FileArrayAs String, Num As Long, OpnFile As ... Dim Upper As Long 'Upper boundary of array ... Do While Len> 0 ' Loop to put files into an array ... and allowing me to use the bottom 50% for the other 2 apps). ...
    (microsoft.public.word.customization.menustoolbars)
  • Re: Cascading Windows
    ... I've been suspicious for some time that Word 2003 changes settings all by ... Dim Upper As Long 'Upper boundary of array ... Do While Len> 0 ' Loop to put files into an array ... and allowing me to use the bottom 50% for the other 2 apps). ...
    (microsoft.public.word.customization.menustoolbars)
  • Re: Cascading Windows
    ... I suspect you have got "Windows in Taskbar" set. ... Dim Upper As Long 'Upper boundary of array ... Do While Len> 0 ' Loop to put files into an array ... and allowing me to use the bottom 50% for the other 2 apps). ...
    (microsoft.public.word.customization.menustoolbars)
  • WordBasic.SortArray FileArray
    ... I have a macro I use to open word docs in batches. ... Dim Resumes As String, FileArrayAs String, Num As Long, OpnFile As Long ... Dim Upper As Long 'Upper boundary of array ... Do While Len> 0 ' Loop to put files into an array ...
    (microsoft.public.word.vba.general)
  • Re: linear equation with restrictions
    ... % x, a, lower, upper are n-dimensional vector ... set maxcount to finite value doesn't work as ... % a must be primary array, i.e., they greatest common ... elseif isinf% k has upper bound, but no lower bound ...
    (comp.soft-sys.matlab)