:: Visual Foxpro, Foxpro for DOS
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Накрайняк можно загрузить Word через командную строку Windows в фоновом режиме и запустить (опять же при загрузке Worda) макрос, который сохранит файл в формате PDF и даже закроет Word.



Исправлено 1 раз(а). Последнее : Simple777, 10.03.17 19:11
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Yason

Сообщений: 214
Откуда: Питер
Дата регистрации: 03.07.2002
спасибо, как вариант )))
вас не затруднило бы простой пример такого вызова привести ?
я не делал так.

подумываю, не поставить ли им какой-нить старенький ворд, но настоящий )) не знаю почему они именно стартером пользуются )
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
> не знаю почему они именно стартером пользуются
что это такое ?
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Yason
вас не затруднило бы простой пример такого вызова привести ?

Сначала макрос записывается в Worde и сохраняется в Normal.dotm с именем MyMacrosName (имя условное, конечно).

Можно записанный макрос также подготовить для последующего импорта в любой Normal.dotm (на любом компьютере с Word) В этом случае (если будет выбрано импортирование макроса в окошке VBA) появится файл с расширением *.BAS

Далее вызывается Word такой командой:

!CMD /C START winword /x /mMyMacrosName

Word загрузится и исполнит макрос MyMacrosName (если макрос хранится в Normal.dotm)
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Пример текста макроса, пригодный для импорта в Nomal.dotm (содержимое файла myfile.bas)

Attribute VB_Name = "NewMacros"
Sub MyMacrosName()
Attribute MyMacrosName.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.MyMacrosName"
'
' MyMacrosName Макрос
'
'
ChangeFileOpenDirectory "D:\mydir\"
Documents.Open FileName:="MyFile.doc", ConfirmConversions:=False _
, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"D:\mydir\MyFile.pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

Этот файл можно импортировать в Normal.dotm

Для этого в Worde набрать ALT-F11, выбрать "Project Explorer", щелкнуть на "Normal" правой кнопкой мыши и выбрать "Import File". Далее выбрать сохраненный файл с расширением *.bas и открыть его. Макрос добавится в Normal.dotm и будет готов к вызову и работе.



Исправлено 1 раз(а). Последнее : Simple777, 10.03.17 20:08
Ratings: 0 negative/1 positive
Re: Передача данных из VFP в PDF
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
(ахренеть, что это все делает?)
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Ровно то, что заявлено. [sm128]
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
именно в " Nomal.dotm"? там же умолчания...
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
И причем тут умолчания? [sm128]
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
Simple777
Накрайняк можно загрузить Word через командную строку Windows в фоновом режиме и запустить (опять же при загрузке Worda) макрос
Word Starter не поддерживает макросы От слова совсем. Единственное "послабление" (чтобы макровирусы не вымерли совсем), он их не удаляет из открываемых документов. Но ни создать, ни использовать ранее написанные не может.

MS, насколько я в курсе, отказалась от этого убожества (существовала лишь 2010 версия "офис стартер") вернувшись к старой практике предустановки триальных 60-дневных версий полных офисов на продаваемые в розницу компы...

Лично я даже не стал бы заморачиваться с попытками автоматизации этого "продукта" (хотя, полагаю, методом SendKeys его вполне можно заставить "сохранить доку в пдф"). Если стоит вопрос лицензионной чистоты, то лучше уж разобраться с каким вариантом OpenOffice, а если нет, то дистрибутив полноценного офиса в руки автору вопроса


------------------
WBR, Igor
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
Ты бы, Симпле, или на VBA сразу перепиши свою прогу, или на VFP переходи. Ты уже не первый раз желаешь сделать виндовую фигню из под DOS-а, мучаешься ведь, страдаешь )
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
Yason
т.е. надо понимать так, что если нет соб-но объекта ворда, то нельзя программно средствами ShellExecute заставить открытый файл сохранить в том или ином формате ?
"объект ворда" (aka сервер автоматизации, COM-сервер, Word.Application, он же Гога, он же Гоша ) и АПИ функция ShellExecute - две разные и никак не связанные между собой штуки. Если первое это полноценный механизм программного управления вордом, то второе - не более чем чуть улучшенный программный способ "кликнуть по файлу в проводнике". Никаких возможностей по управлению запущенным приложением он не даёт.

Вообще могу посоветовать, если уж совсем беда, и ни стартер удалить нафик нельзя, ни пользователю отказать, освоить AutoIT - да всё то же самое можно и в фоксе сделать, но это надо искать а потом описывать АПИ функции, плюс вопросы дистрибуции фоксовой программы (если это единственное твой ПО которое нужно на данной машине). А тут очень простой язык и простота установки и использования. Для автоматизации подобной рутины IMHO вполне подойдёт.


------------------
WBR, Igor
Ratings: 0 negative/1 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
of63
Ты бы, Симпле, или на VBA сразу перепиши свою прогу, или на VFP переходи. Ты уже не первый раз желаешь сделать виндовую фигню из под DOS-а, мучаешься ведь, страдаешь )

Переписать 10Мб исходников? Ню-ню. Так никаких волостей не напасёшься!.. \m/

И насчет "мучений". Кагбы по мотивам...

Врач:
- Скажите, вас мучают эротические сны?
- Отчего же мучают? Я ими наслаждаюсь!..
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
Ну... переходили же с FPD на VFP (5), не сильно болезненно... Правда, тогда и родился "новый подход, новое видение". Т.е. параллельно надо делать. Поставь новую версию одному юзеру, просмотри.

Доб. 10МБайт исходников (незипованых) - это немного, даже для одного человека.



Исправлено 1 раз(а). Последнее : of63, 10.03.17 21:22
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Оффа-романтик...
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
Я провернул это, тогда бабенки меня называли нелюдимым,, год сидел примерно, но у меня такой был зае... настрой, семейные дела. И все сработало, за год мы перешли, там параллельное веденеие табличек (свободные) старой и новой проги, все так нормально. И ты слезай с ДОСа )

Доб. Тогда же и подцепил. Вторую жену. ) С коей и маюсь теперь, т.е. мб побочные эффекты )))



Исправлено 1 раз(а). Последнее : of63, 10.03.17 21:34
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
"Железный конь идет на смену крестьянской лошадке! Ур-ра, товарищи!.." (C) :bi:
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
of63
Доб. Тогда же и подцепил. Вторую жену. ) С коей и маюсь теперь, т.е. мб побочные эффекты )))

Возможно, Бог наказал за несанкционированный переход на VFP.
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Yason

Сообщений: 214
Откуда: Питер
Дата регистрации: 03.07.2002
Simple777
Пример текста макроса, пригодный для импорта в Nomal.dotm (содержимое файла myfile.bas)
Attribute VB_Name = "NewMacros"
Sub MyMacrosName()
Attribute MyMacrosName.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.MyMacrosName"
'
' MyMacrosName Макрос
'
'
ChangeFileOpenDirectory "D:\mydir\"
Documents.Open FileName:="MyFile.doc", ConfirmConversions:=False _
, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"D:\mydir\MyFile.pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

Этот файл можно импортировать в Normal.dotm

Для этого в Worde набрать ALT-F11, выбрать "Project Explorer", щелкнуть на "Normal" правой кнопкой мыши и выбрать "Import File". Далее выбрать сохраненный файл с расширением *.bas и открыть его. Макрос добавится в Normal.dotm и будет готов к вызову и работе.


Спасибо большое !
Все советы учел, попробую что-нить изготовить ;)

ps и нафлудили вы с Оффом знатно ! впервые вижу чтоб из-за апгрейда фокса второй раз жениться,
это просто какой-то прорыв в автоматизации!
Ratings: 0 negative/0 positive
Re: Передача данных из VFP в PDF
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Перед End Sub можно еще вставить строчку Application.Quit
И тогда макрос завершится выходом из Word
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 25 vlgrech  (Гостей: 24)

© 2000-2024 Fox Club 
Яндекс.Метрика