Страница: 1 |
Вопрос: Из Excel через Word и Acrobat в Outlook | Добавлено: 24.03.07 13:44 |
Автор вопроса: ![]() |
Всем привет!!!
Стоит тяжелейшая задача. Кратко опишу ее. Существует файл Excel, как источник данных, и файл Word, как получатель данных. Необходимо из Excel сделать следующее: 1. Нажать на кнопку и открыть файл Word, получателя данных. 2. В этом файле выбрать необходимую запись. 3. Отправить на печать на принтер Adobe PDF. 4. Создать сообщение Outlook, где вложенным файлом будет созданный Adobe PDF, а адрес email и обращение будут браться из файла источника данных Excel. Вопрос такой. На ваш взгляд, в принципе, реализуема такая задача или нет. Прошу подсказать направление деятельности по каждому пункту. Если кто-то может сделать всю задачу целиком, жду предложения по цене и срокам. Спасибо. |
Ответы | Всего ответов: 4 |
Номер ответа: 1 Автор ответа: ![]() ![]() ICQ: 234458121 Вопросов: 38 Ответов: 107 |
Профиль | Цитата | #1 | Добавлено: 26.03.07 11:25 |
Начал с пункта 3. Как выбрать нужный принтер, вопросов не возникло. Но вот как изменить какие-либо его параметры, совершенно непонятно. Может, кто подскажет ответ на этот вопрос? |
Номер ответа: 2 Автор ответа: ![]() ![]() ICQ: 234458121 Вопросов: 38 Ответов: 107 |
Профиль | Цитата | #2 | Добавлено: 26.03.07 11:28 |
По пункту 1. Как в принципе из Excel можно управлять Word, т.е. открыть определенный файл в Ворде, отправить его на печать. Или вообще, принципиально, как можно из одного приложения Офиса управлять другим? |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | Цитата | #3 | Добавлено: 26.03.07 11:50 |
Если не справишься через MS-Office, можешь посмотреть на OpenOffice.
Выглядеть может примерно так: sub Export2PDF rem ---------------------------------------------------------------------- rem Объява переменных dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem Организация доступа к документу document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper" ![]() rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue rem Выделение области. args1(0).Name = "ToPoint" args1(0).Value = "$A$1:$C$1" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(3) as new com.sun.star.beans.PropertyValue rem Собссно экспорт в ПДФ. args2(0).Name = "URL" args2(0).Value = "file:///home/UU/123.pdf" args2(1).Name = "FilterName" args2(1).Value = "calc_pdf_Export" args2(2).Name = "FilterData" rem Эту строку склей в одну. Оставил для наглядности. args2(2).Value = Array(Array("UseLosslessCompression",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("Quality",0,90,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("ReduceImageResolution",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("MaxImageResolution",0,300,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("UseTaggedPDF",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("ExportNotes",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("UseTransitionEffects",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("IsSkipEmptyPages",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("FormsType",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("HideViewerToolbar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("HideViewerMenubar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("HideViewerWindowControls",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("ResizeWindowToInitialPage",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("CenterWindow",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("OpenInFullScreenMode",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array(" ![]() Array("InitialView",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("Magnification",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("PageLayout",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("FirstPageOnLeft",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("Printing",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("Changes",0,4,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("EnableCopyingOfContent",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("EnableTextAccessForAccessibilityTools",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("EncryptFile",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array(" ![]() Array("RestrictPermissions",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("PermissionPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE), Array("Selection",0,,com.sun.star.beans.PropertyState.DIRECT_VALUE)) args2(3).Name = "SelectionOnly" args2(3).Value = true dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args2()) end sub |
Номер ответа: 4 Автор ответа: ![]() ![]() ICQ: 234458121 Вопросов: 38 Ответов: 107 |
Профиль | Цитата | #4 | Добавлено: 27.03.07 11:17 |
Спасибо, конечно, за помощь. Но такая фича точно не покатит в MS Office. |
Страница: 1 |
|