[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

[belohortvladimir]

Iska »

То что ты написал я скопировал и сохранил в текстовом файле с расширением wsh и при запуске пишет ошибку (Сценарий не указан) и все.
Что может быть сейчас не так?

[Iska]

и сохранил в текстовом файле с расширением wsh »

«.vbs».

«.wsh» — это файл описания скрипта, наподобие:

Код:

[ScriptFile]
Path=E:\Песочница\0335\0001.vbs
[Options]
Timeout=5
DisplayLogo=1

Он Вам не нужен.

[belohortvladimir]

Iska »

Поменял расширение на vbs запустил выдало опять ошибку. Думаю наверно что то с выполнениями скриптов на ПК. собрался писать запустил еще раз чтобы переписать ошибку и в этот раз все пошло ) СПАСИБО БОЛЬШОЕ!!!!!

Теперь если не сложно можешь объяснить эту строчку (objWord.PrintOut False, , wdPrintRangeOfPages, , , , , , "2,4-6", , , , objFile.Path) цифры что они обозначают. И еще в том коде что ты предложил заменим objWord на objExcel и запуская скрипт вываливает ошибку на (Documents)
Сценарий: C:\print\1.vbs
Строка: 20
Символ: 6
Ошибка: Объект не поддерживает это свойство или метод: 'Documents'
Код: 800A01B6
Источник: Ошибка компиляции Microsoft VBScript

[Iska]

Теперь если не сложно можешь объяснить эту строчку (objWord.PrintOut False, , wdPrintRangeOfPages, , , , , , "2,4-6", , , , objFile.Path) цифры что они обозначают. »

PrintOut Method
Application.PrintOut Method (Word)

Цифры обозначают страницы. Я взял их непосредственно из Вашего кода.

И еще в том коде что ты предложил заменим objWord на objExcel и запуская скрипт вываливает ошибку на (Documents) »

Что Вас удивляет? Что объектные модели Word и Excel отличаются?

[belohortvladimir]

(objWord.PrintOut False, , wdPrintRangeOfPages, , , , , , "2,4-6", , , , objFile.Path) »

ну насколько я понимаю то что написано говорит напечатать 2,4,5,6 все остальное не печатать. Чтобы печатало весь документ вот так должно выглядеть (objWord.PrintOut False, , , , , , , , , , , , objFile.Path).

[belohortvladimir]

Iska »

Я тебе в ПМ написал.