[Iska]

Если б я хоть мог понять, ЧТО надо делать с офисом, чтоб получить такой чудовищный результат?! »

dislike, может Вас устроит обратное?

Код:

Option Explicit

Const wdPaperA4 = 7
Const wdOrientLandscape = 1


Dim strSourceFile
Dim objFSO


If WScript.Arguments.Count = 1 Then
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	strSourceFile = objFSO.GetAbsolutePathName(WScript.Arguments.Item(0))
	
	If objFSO.FileExists(strSourceFile) Then
		Select Case LCase(objFSO.GetExtensionName(strSourceFile))
			Case "doc", "docx"
				With WScript.CreateObject("Word.Application")
					With .Documents.Open(strSourceFile)
						With .Sections
							With .Item(1).PageSetup
								.PaperSize = wdPaperA4
								.TwoPagesOnOne = False
							End With
							
							With .Item(2).PageSetup
								.PaperSize = wdPaperA4
								.Orientation = wdOrientLandscape
								.TwoPagesOnOne = False
							End With
						End With
						
						.Save
						.Close
					End With
					
					.Quit
				End With
			Case Else
				WScript.Echo "Probably not a Microsoft Word document."
				WScript.Quit 3
		End Select
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Путь к документу задаётся аргументом скрипта (также можно просто перетащить документ на скрипт или его ярлык).

Я правильно понимаю, что навряд ли данный документ предполагалось печатать по две логических страницы на одной физической?

P.S. И пусть авторы научатся пользовать либо разрыв страниц/разделов, либо свойство абзаца/стиля Начинать с новой страницы (вместо выравнивания по вертикали пустыми абзацами).

P.P.S. А так-то коллеги совершенно правы — надо бить подсвешниками ставить техподдержку того продукта:
.

что-то куда-то загружают, потом выгружают, и в итоге у них получаются эти файлы »

на уши.