Автор | Сообщение |
|
| |
Пост N: 187
Зарегистрирован: 03.12.08
|
|
Отправлено: 13.11.14 22:58. Заголовок: Нужно сохранить отчет в формате .DOC для Microsoft Word . КАК?
Пока предполагаю по аналогии с .XLS созданием методом OLE . У меня отчет - бланк Наряд-заказа с СТО с реквизитами сторон , тремя таблицами и итогами .... Для красоты несколько линий для разделения тематики .
|
|
|
Ответов - 31
, стр:
1
2
All
[только новые]
|
|
|
| |
Пост N: 198
Зарегистрирован: 03.12.08
|
|
Отправлено: 10.12.14 16:23. Заголовок: Экспериментирую с вы..
Экспериментирую с выводом формы в MS Word ...... 1) Есть-ли возможность 'прямого' вывода строки в определенную позицию на листе , например через координаты .... в EXCELL с этим удобнее - указываем номер ячейки X,Y и всё ,,,,, 2) Так и не понял как организовать таблицу в указанном месте листа .... Вообще не понял как из макроса сделать команды в Harbour
|
|
|
|
| постоянный участник
|
Пост N: 3822
Зарегистрирован: 12.09.06
|
|
Отправлено: 10.12.14 20:58. Заголовок: Softlog86 пишет: Во..
Softlog86 пишет: цитата: | Вообще не понял как из макроса сделать команды в Harbour |
| Смотри -> Dima пишет: цитата: | поиск на форуме Word.Application |
|
|
|
|
|
| |
Пост N: 4341
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.12.14 21:25. Заголовок: Softlog86 Есть прос..
Softlog86 Есть простой способ , руками пробнул работает. Опишу чуть позже.
|
|
|
|
| |
Пост N: 4342
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.12.14 22:26. Заголовок: Открываем документ E..
Открываем документ EXCEL и всю наборку делаем в нем включая таблицы и тд и тп. Выделяем нужный кусок документа и копируем в буфер. Делаем вставку в чистом документе WORD. Все. ЗЫ Юзал таблицу , раскрасил её , внес данные , все сработало.
|
|
|
|
| |
Пост N: 1
Зарегистрирован: 28.11.14
|
|
Отправлено: 12.12.14 03:32. Заголовок: Я использовал Bookma..
цитата: | Есть-ли возможность 'прямого' вывода строки в определенную позицию на листе |
| Я использовал Bookmarks т.е. давал заданным кускам текста подходящие имена а потом так ... aAdd(aBookMarks, {"Team", s}) aAdd(aBookMarks, {"Sign3", wMain.txt_Manager3.Value}) aAdd(aBookMarks, {"Sign4", wMain.txt_Manager4.Value}) aAdd(aBookMarks, {"Sign2", wMain.txt_Manager2.Value}) If oResDoc:Bookmarks:Count > 0 BkMrk:="" For Each BkMrk In oResDoc:Bookmarks bmName:=BkMrk:Name if (n:=AScan( aBookMarks, {|x| x[ 1 ] == bmName} ))>0 //BkMrk:Range := BkMrk:Name BkMrk:Range := aBookMarks[n,2] endif Next //BkMrk EndIf oWord:Visible := .T. oWord:WindowState := 1 // Maximizado
|
|
|
|
| |
Пост N: 133
Зарегистрирован: 24.04.13
|
|
Отправлено: 12.09.17 16:31. Заголовок: Подскажите пожалуйст..
Подскажите пожалуйста, как в данном примере сделать так чтобы "Время" и "Дата" были с разными параметрами шрифта ? IF ( oWord := win_oleCreateObject( "Word.Application" ) ) != NIL oWord:Documents:Add() oText := oWord:Selection() oText:Text := "" oText:Font:Name := "Courier New" oText:Font:Size := 8 oText:Font:Bold := .f. oText:Text += hb_oemtoansi("Время") + hb_eol() oText:Font:Name := "Courier New" oText:Font:Size := 12 oText:Font:Bold := .t. oText:Text += hb_oemtoansi("Дата") + hb_eol() oWord:Visible := .T. oWord:WindowState := 1 /* Maximize */ ELSE ? "Error. MS Word not available.", win_oleErrorText() ENDIF
|
|
|
|
| |
Пост N: 6576
Зарегистрирован: 17.05.05
|
|
Отправлено: 12.09.17 16:35. Заголовок: А что не пашет как в..
А что не пашет как в примере ? azoo пишет: Что то мне кажется что hb_oemtoansi уже и не нужен если свежий Harbour
|
|
|
|
| |
Пост N: 134
Зарегистрирован: 24.04.13
|
|
Отправлено: 12.09.17 16:45. Заголовок: Dima, не важно, прос..
Dima, не важно, просто исходник набран в 866 кодировке. Можно и так: oText:Text += "Дата" + hb_eol() Вопрос в том, что в Wordе текст получается одинаковым, т.е. без учёта параметров Size, Bold
|
|
|
|
| |
Пост N: 6577
Зарегистрирован: 17.05.05
|
|
Отправлено: 12.09.17 17:38. Заголовок: azoo Даже не знаю, ..
azoo Даже не знаю, я не работал с "Word.Application" , так как спокойно обходимся без него. Попробуй на форуме поиск дёрнуть по фразе Word.Application , может примеры найдешь какие или загугли на предмет Word.Application + Harbour
|
|
|
|
| |
Пост N: 6578
Зарегистрирован: 17.05.05
|
|
Отправлено: 12.09.17 17:56. Заголовок: azoo пишет: oText:F..
azoo пишет: цитата: | oText:Font:Name := "Courier New" oText:Font:Size := 8 oText:Font:Bold := .f. oText:Text += hb_oemtoansi("Время") + hb_eol() |
| а если так oText:Text += hb_oemtoansi("Время") + hb_eol() oText:Font:Name := "Courier New" oText:Font:Size := 8 oText:Font:Bold := .f.
|
|
|
|
| постоянный участник
|
Пост N: 5512
Зарегистрирован: 12.09.06
|
|
Отправлено: 12.09.17 20:38. Заголовок: По просьбе желающих ..
По просьбе желающих выложил готовые примеры у Григория на сайте - http://hmgextended.com/applications.html Преобразование DBF в DOC через объект ОЛЕ в МиниГуи / Convert DBF to DOC via the OLE object in MiniGui Преобразование DBF в XLS через объект ОЛЕ в МиниГуи / Convert DBF to XLS via the OLE object in MiniGui Примеры для МиниГуи, но можно использовать и для терминалки.
|
|
|
Ответов - 31
, стр:
1
2
All
[только новые]
|
|