Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Seryoga204

Код: Option Explicit Const wdDoNotSaveChanges    =  0 Const wdPromptToSaveChanges = -2 Const wdSaveChanges         = -1 Dim objWord, objDoc, objFS, objFolder, objItem Set objFS = CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.GetFolder("d:\OTDEL\0001\02012009") 'Папка, из которой производится печать Set objWord = WScript.CreateObject("Word.Application")     For Each objItem In objFolder.Files         If StrComp(objFS.GetExtensionName(objItem.Name), "0001", vbTextCompare) = 0 Then             With objWord                 Set objDoc = .Documents.Open(objItem.Path, False, True, False)                 objDoc.PrintOut False                 Set objDoc = Nothing             End With                      End If     Next objWord.Quit Set objWord = Nothing WScript.Quit 0

Я в скриптах не силен. Скрипт такого вида печатае все файлы за 02,01,2009 по отделу 0001, как бы сделать чтобы печатались все отделы за это число, пожалуйста, уже третий день мучаюсь, можно на моем кодепоказать что изменить, заранее спасибо.