Разное - [решено] Кривые файлы Word

[dislike]

Добрый день. Появилась систематическая проблема. В одном из отделов постоянно появляются битые файлы формата docx. По словам сотрудников, они что-то куда-то загружают, потом выгружают, и в итоге у них получаются эти файлы, т.е. избежать этого процесса нельзя, кривизна рук судя по всему на ситуацию не влияет. Нужно бороться с последствиями. Внутри файлов простые тексты договоров, таблицы.



В чем проблема:

1. При распечатывании этого файла текст лезет и наслаивается сам на себя, как если бы две страницы распечатать на одной стороне одного листа бумаги.

2. При попытке открыть Параметры страницы выдает ошибку "Размер и ориентация страницы являются несовместимыми", но окно настроек всё же открывается.

3. В окне параметров страницы при нажатии на ОК независимо от того, изменялось что-либо из настроек или нет, выбивает другую ошибку "Значение должно быть между 0,26 и 55,87 см". Какое значение, черт его не ведает, идиотские программисты майкрософт в своей гениальности не считают нужным пояснять.



И вот что со всей этой историей делать? Нет, я могу в лоб на весь документ применить формат А4 (судя по всему часть страниц в А5), пошевелить поля, ориентацию страниц и т.д. и доумент приходит в сознание, но беда в том что после этого ломаются таблицы, потому что они альбомные, а документ книжный. Если применять А4 только на выделенные вручную страницы, то они становятся не А4, а почему-то А5 чисто визуально на экране и при распечатке, хотя по всем настройкам числится как А4. У меня мозг уже заклинило от этих документов



Проблема не зависит от принтера, компьютера и версии офиса.

[DJ Mogarych]

Это не техническая проблема:


Цитата dislike:



Проблема не зависит от принтера, компьютера и версии офиса

Разное - [решено] Кривые файлы Word

Проблема


Цитата dislike:



В одном из отделов

Разное - [решено] Кривые файлы Word

А именно - в криворукости сотрудников, не умеющих нормально использовать офис.

[dislike]

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

[sputnikk]

dislike, придётся посмотреть лично как сохраняют документ

[a_axe]

Цитата dislike:



ЧТО надо делать с офисом

Разное - [решено] Кривые файлы Word

dislike, насколько я понимаю - это не результат работы с офисом?


Цитата dislike:



По словам сотрудников, они что-то куда-то загружают, потом выгружают,

Разное - [решено] Кривые файлы Word

Возможно - загружают в какую-нибудь систему документооборота, и она изменяет файлы? И тут резонный вопрос - насколько эти изменения в принципе устранимы в "пакетном режиме", существует ли такое решение.



Конструктивных предложений по борьбе со следствиями пока нет, разумно выяснить, куда файлы загружаются и что можно сделать с причиной.

Что происходит, если загружать не docx, а doc?

[Iska]

Цитата dislike:



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

Разное - [решено] Кривые файлы Word

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 & """ "
	WScript.Quit 1
End If
WScript.Quit 0

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



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



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



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

.
Цитата dislike:



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

Разное - [решено] Кривые файлы Word

на уши.

[Iska]

Забыл отметить, почему так:


Цитата dislike:



2. При попытке открыть Параметры страницы выдает ошибку "Размер и ориентация страницы являются несовместимыми", но окно настроек всё же открывается.

3. В окне параметров страницы при нажатии на ОК независимо от того, изменялось что-либо из настроек или нет, выбивает другую ошибку "Значение должно быть между 0,26 и 55,87 см". Какое значение, черт его не ведает, идиотские программисты майкрософт в своей гениальности не считают нужным пояснять.

Разное - [решено] Кривые файлы Word

получается. Дело в том, что:



а) настройки параметров страниц разделов в целом несовместимы, о чём свидетельствует сообщение:





б) некорректные настройки, заданные числами, находятся на второй вкладке, Размер бумаги, а по умолчанию открывается первая вкладка, Поля. Если бы мы «ручками» попытались ввести/задать некорректные значения — сработал бы тот же самый триггер, и нас тупо не выпустило бы за пределы той вкладки, где мы вводили эти значения, пока бы мы их не исправили или не отменили бы. Но, поскольку, в данном случае, некорректные значения заданы явно программным образом (уж не знаю, что там программисты напрограммировали — то ли напортачили в переводе единиц из одной системы в другую, або ещё чего, то ли вообще тупо xml правили. не проверяя, что выйдет), то мы оказываемся в дурацкой ситуации — мы банально не можем попасть на эту вторую вкладку.



Сколько-то лет назад я с подобным поведением уже сталкивался.

[dislike]

Цитата Iska:



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

Разное - [решено] Кривые файлы Word

Да вполне. Проверил - работает. Спасибо!