[Iska]

belohortvladimir, WSH не VBA.

Код:

Option Explicit

Const wdPrintRangeOfPages = 4


Dim strSourceFolder

Dim objFile
Dim objWord


strSourceFolder = "C:\print"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		Set objWord = Nothing
		
		For Each objFile In .GetFolder(strSourceFolder).Files
			If LCase(.GetExtensionName(objFile.Name)) = "doc" Then
				If objWord Is Nothing Then
					Set objWord = WScript.CreateObject("Word.Application")
					objWord.Documents.Add
				End If
				
				objWord.PrintOut False, , wdPrintRangeOfPages, , , , , , "2,4-6", , , , objFile.Path
			End If
		Next
		
		If Not objWord Is Nothing Then
			objWord.Quit
			Set objWord = Nothing
		End If
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found."
	End If
End With

WScript.Quit 0