Преобразование *.doc(x) В *.pdf

[Bob84]

Здравствуйте.
Преобразовываю doc(x) файлы из Лотуса в pdf посредством

Call wordDoc.ExportAsFixedFormat( filepath,_ 'OutputFileName
wdExportFormatPDF,_ 'ExportFormat
True,_ 'OpenAfterExport
wdExportOptimizeForPrint,_ 'OptimizeFor
wdExportAllDocument,_ 'Range
1,_ 'From
1,_ 'To
wdExportDocumentContent,_ 'Item
True,_ 'IncludeDocProps
True,_ 'KeepIRM
wdExportCreateNoBookmarks,_ 'CreateBookmarks
True,_ 'DocStructureTags
True,_ 'BitmapMissingFonts
False _ 'UseISO19005_1
)

Все хорошо, но после преобразования иногда книжная ориентация страницы меняется на альбомную. Когда тот же документ сохраняю из ворда в pdf - все нормально. Макрос при этом генериется с такими же параметрами как и выше. Сам ворд ориентацию страниц при открытии не меняет, это я проверял. Может кто-то сталкивался с таким?

 

[garrick]

По-моему в "сохранении" нет никаких параметров относительно ориентации страницы... Это всё где-то раньше, может быть зависит от дефолтных настроек Word или выбранного по умолчанию принтера. Ставьте принудительно нужную ориентацию перед сохранением документа.

 

[lmike]

	If Not forceWord Then
ext={pdf}
On Error Goto DOC
CloseByFileName(fnam(0) & "." & ext)
worddoc.saveas2 fname & "." & ext, wdFormatPDF
Print {Saved as PDF}
worddoc.Application.Quit False
Set worddoc=Nothing
Goto CMN
End If
OLD:
forceWord=False
ext=tmpext
On Error Goto ErrH
worddoc.saveas(fname & "." & ext)
Goto CMN
DOC:
RaiseError
Resume OLD
CMN:

никто на повороты страниц еще не жаловался
МСявость рОзлива 2010

 

[Bob84]

При такой реализации при попытке открыть созданный пдф файл получил сообщение:

Adobe Reader не может открыть файл ... так как формат файла не поддерживается...

 

[lmike]

При такой реализации при попытке открыть созданный пдф файл получил сообщение:

выкинуть старый/глюкавый/дырявый адобаридер
попробуйте открывать через

Ссылка скрыта от гостей

 

[Bob84]

Контстанту неправильно указал, работает. Допишу только код для открытия и все. Спасибо

 

[savl]

Да, это как раз то что хотят услышать от меня администраторы заказчика)))

Вот вот...
Заменить AR на FR это конечно решение, но теперь на все компы в организации его ставить...
Особенно дизайнерам на Mac, если они есть... А спасибо они скажут за это, уж поверте.

Чтобы AR не ругался, по факту, MS рекомендует использовать именно ExportAsFixedFormat
И не просто так сделали они отдельную функцию, а не save as...
К тому же в записи макроса пишется именно ExportAsFixedFormat, со слов автора (я не проверял)
И работает это только после установки надстройки для офиса, которую MS и предлагают всегда ставить.

Что касается альбомной страницы, надо смотреть документ word.
Все сохраняется относительно документа, могут влиять настройки принтера, это не факт но возможно.
А в Word можно делать различные ориентации страниц для всего документа, особенно если там большая таблица.
Забавно она будет смотреться в портретной ориентации...

 

[Bob84]

При использовании метода saveas2 результат тот же.

Все сохраняется относительно документа, могут влиять настройки принтера, это не факт но возможно.

Какие именно настройки могут влиять? И при чем тут принетр, если я в файл сохраняю?
Сам Word перед сохранением точно с документов ничего не делает, это я проверял.

 

[lmike]

Контстанту неправильно указал, работает. Допишу только код для открытия и все. Спасибо

че там писать-то

	fname=Replace(fname,{/},{\})'Windows specific
If ( rtitem.Type = RICHTEXT ) Then
Call rtitem.EmbedObject( EMBED_ATTACHMENT,{} , fname, fnam(0))
Call doc.Save(True, False)
If worddoc Is Nothing Then
Dim res, run As String
run={cmd.exe /c "start } &fname &{"}
Print {Shell calling...}, run
res=Shell(run)
End If
End If

Добавлено:

Вот вот...
Заменить AR на FR это конечно решение, но теперь на все компы в организации его ставить...
Особенно дизайнерам на Mac, если они есть... А спасибо они скажут за это, уж поверте.

не нужет никакой бадоба на Маке, уж поверьте (я лет 8 с маками) штатный вьюер как в линухах так и в маке, это тока в винде забота о юзерах такая оригинальная
а что там наворотил МС и что они рекомендуют - надо меньше "слушать" - ничего хорошего, для сторонних форматов, они не посоветуют

 

[lmike]

Какие именно настройки могут влиять? И при чем тут принетр, если я в файл сохраняю?
Сам Word перед сохранением точно с документов ничего не делает, это я проверял.

уж опять же, поверьте, у МС все череж ж..пу настраивается, надысь прибежали с хухэлем (экселем) - грят - нецветной ПДФ получаецо...
но мы-то знаем как работает мосх прогерров МС, я сразу сказал - настройки печати ковырять надо, так и оказалось (настройки страницы и там...)
а в МС ресурсах послали в пэдж лэйаут, и разумеется - там ничего путного не получилось (все серое было - неактивные кнопки)

и так у них куда не ткнись (в их мануалах) - редкостно бестолковые

 

[Bob84]

До сохранения в пдф, был код который в колонтитулы документа добавлял две строки разделенные chr(13). Вот когда убрал chr(13), то проблема пропадает.