GreenMonkey
01-20-2011, 04:09 PM
I have some code that I'm using as an AutoOpen sub for what I'll call my "main" document. What I'd like it to do is to open a number of additional Word documents and then minimize all but the main document, but I want to do so without showing the user the process. Application.ScreenUpdating = False doesn't seem to work. Does anyone have any suggestions? Thanks! Here's a bit of the code:
Sub AutoOpen()
ActiveWindow.WindowState = wdWindowStateMaximize
Application.ScreenUpdating = False
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistEPDocs.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistFirstMeetingPrep.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistBenePOA.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistBringToMeeting.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistCalendarDeadlines.docm")
Application.Windows("TAChecklistEPDocs.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistFirstMeetingPrep.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistBenePOA.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistBringToMeeting.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistCalendarDeadlines.docm").WindowState = wdWindowStateMinimize
Application.ScreenUpdating = True
End Sub
Sub AutoOpen()
ActiveWindow.WindowState = wdWindowStateMaximize
Application.ScreenUpdating = False
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistEPDocs.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistFirstMeetingPrep.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistBenePOA.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistBringToMeeting.docm")
Documents.Open ("H:\WORDTEXT\Templates\TAChecklistCalendarDeadlines.docm")
Application.Windows("TAChecklistEPDocs.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistFirstMeetingPrep.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistBenePOA.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistBringToMeeting.docm").WindowState = wdWindowStateMinimize
Application.Windows("TAChecklistCalendarDeadlines.docm").WindowState = wdWindowStateMinimize
Application.ScreenUpdating = True
End Sub