Автор | Сообщение |
|
| |
Пост N: 2
Зарегистрирован: 22.04.15
|
|
Отправлено: 22.04.15 20:48. Заголовок: шаблон Microsoft Word
Кто подскажет (и покажет) - требуется использовать шаблон Word (взаимодействие - подготовка, открытие, передача параметров и т.д.), то есть требуется подготовить определенный шаблон Word, передать параметры с программы, сохранить в формате docx в определенном месте или направить на печать.
|
|
|
Ответов - 103
, стр:
1
2
3
4
5
6
All
[только новые]
|
|
|
| |
Пост N: 6179
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.12.16 17:05. Заголовок: Возможно не тот хенд..
Возможно не тот хендл поймал у Word
|
|
|
|
| постоянный участник
|
Пост N: 5223
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.16 17:09. Заголовок: Dima пишет: Возможн..
Dima пишет: цитата: | Возможно не тот хендл поймал у Word |
| Нет, то окно. Окно Ворда исчезает, а потом появляется. Разобрался.Нужно ставить задержку. Потом желающие смогут проверить у себя.
|
|
|
|
| постоянный участник
|
Пост N: 5224
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.16 17:37. Заголовок: Остался ещё один воп..
Остался ещё один вопрос: Как сделать в таблице авто суммирование столбца ? Т.е. я в конце таблицы добавляю колонку и хочу сделать в ней сумму столбца. Хотя можно и самому в цикле посчитать, но лучше сделать как положено. oTbl:Cell(nRowDbf,2):Range:ParagraphFormat:Alignment:= wdAlignParagraphRight oTbl:Cell(nRowDbf,2):Range:Font:Bold = .T. // ------------ как сделать автосумирование колонки ??? //oTbl:Cell(nRowDbf,2):Range:InsertFormula := "=Sum()"
|
|
|
|
| |
Пост N: 6180
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.12.16 17:42. Заголовок: SUM (ABOVE)..
SUM (ABOVE) ЗЫ Всегда можно спросить гугл
|
|
|
|
| постоянный участник
|
Пост N: 5225
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.16 18:42. Заголовок: Dima пишет: Всегда ..
Dima пишет: цитата: | Всегда можно спросить гугл |
| Не всегда... Не получается вставит формулу. По макросу так: Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:="# ##0,00" А как оператором написать формулу и формат ? oTbl:Cell(nRowDbf,2):Range:InsertFormula????? := "=Sum(ABOVE)" Перебрал несколько вариантов. Так не работает: oTbl:Cell(nRowDbf,3):Range:InsertFormula:Formula := "=Sum(ABOVE)" - ошибка oTbl:Cell(nRowDbf,3):Range:InsertFormula := "=Sum(ABOVE)" - ошибка oTbl:Cell(nRowDbf,3):Range:Formula := "=Sum(ABOVE)" - ошибка
|
|
|
|
| |
Пост N: 6181
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.12.16 18:51. Заголовок: Andrey пишет: Не по..
Andrey пишет: цитата: | Не получается вставит формулу. |
| Подсмотри как это делается в Excel , делал же наверное уже.
|
|
|
|
| постоянный участник
|
Пост N: 5226
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.16 18:57. Заголовок: Dima пишет: Подсмот..
Dima пишет: цитата: | Подсмотри как это делается в Excel , делал же наверное уже. |
| Вот так: oSheet:Cells( nLine, nI ):SET( 'NumberFormat', '## ### ###0,00' ) // числовая ячейка и oSheet:Cells[ nI, nRowXls + 1 ] := "=СУММ(R[-" + HB_NtoS(nRowXls + 1 - nLine) + "]C:R[-1]C)"
|
|
|
|
| постоянный участник
|
Пост N: 1366
Зарегистрирован: 09.10.06
|
|
Отправлено: 05.12.16 21:00. Заголовок: Andrey пишет: По ма..
Andrey пишет: цитата: | По макросу так: Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:="# ##0,00" |
| Selection:InsertFormula( "=SUM(ABOVE)", "# ##0,00" )
|
|
|
|
| |
Пост N: 6182
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.12.16 22:27. Заголовок: Andrey пишет: Хотя ..
Andrey пишет: цитата: | Хотя можно и самому в цикле посчитать, но лучше сделать как положено. |
| Я делаю в цикле , ведь это же отчет по реальным цифрам а иначе это будет подгонка нужного результата.
|
|
|
|
| постоянный участник
|
Пост N: 5227
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.12.16 02:09. Заголовок: Петр пишет: Selecti..
Петр пишет: цитата: | Selection:InsertFormula( "=SUM(ABOVE)", "# ##0,00" ) |
| Сделал так: oTbl:Cell(nRowDbf,3):Range:Select() // перейти и выделить ячейку таблицы Selection:InsertFormula( "=SUM(ABOVE)", "# ##0,00" ) Не проходит... Выдаёт ошибку: Error BASE/1003 Переменная не существует: SELECTION Called from MYWORD1OLE(148)
|
|
|
|
| постоянный участник
|
Пост N: 5228
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.12.16 03:42. Заголовок: Уф... Сделал ... :sm..
Уф... Сделал ... Надо так: oText := oWord:Selection() .... // ---------- сделать автосуммирование колонки ----------- FOR nI := 3 TO 7 oTbl:Cell(nRowDbf,nI):Range:Select() // перейти и выделить ячейку таблицы oText:InsertFormula( "=SUM(ABOVE)", "# ##0,00" ) NEXT
|
|
|
|
|
| Администратор
|
Пост N: 3518
Зарегистрирован: 23.05.05
|
|
Отправлено: 09.12.16 09:51. Заголовок: Оставлю здесь ссылку..
|
|
|
|
| постоянный участник
|
Пост N: 5245
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.12.16 14:24. Заголовок: По просьбе желающих ..
По просьбе желающих выложил готовые примеры у Григория на сайте - 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
|
|
|
|
| постоянный участник
|
Пост N: 258
Зарегистрирован: 29.05.10
|
|
Отправлено: 14.12.16 15:55. Заголовок: Andrey пишет: Преоб..
Andrey пишет: цитата: | Преобразование DBF в DOC Преобразование DBF в XLS |
| Вам бы надо было все это в TsBrows вклюючить. И добавить преобразование DBF в PDF
|
|
|
|
| постоянный участник
|
Пост N: 5248
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.12.16 10:55. Заголовок: ММК пишет: Вам бы н..
ММК пишет: цитата: | Вам бы надо было все это в TsBrows вклюючить. |
| Это только Григорий может.... ММК пишет: цитата: | И добавить преобразование DBF в PDF |
| Я не делал такого. Может присоединишься ? Сейчас делаю: DBF_to_PostgreSQL
|
|
|
|
| постоянный участник
|
Пост N: 261
Зарегистрирован: 29.05.10
|
|
Отправлено: 15.12.16 18:40. Заголовок: Andrey пишет: Я не ..
Andrey пишет: цитата: | Я не делал такого. Может присоединишься ? Сейчас делаю: DBF_to_PostgreSQL |
| Понимаете Андрей , когда Вам нужна помощь при разработке какой-то задачи - понимаю. Но зачем заниматься Минигуи если все это есть в FW ? Какой смысл? :)
|
|
|
|
| постоянный участник
|
Пост N: 5250
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.12.16 22:11. Заголовок: ММК пишет: Но зачем..
ММК пишет: цитата: | Но зачем заниматься Минигуи если все это есть в FW ? Какой смысл? |
| Не нашел я что-то вариант DBF в DOC в FW... DBF в PostgreSQL тоже нет в FW... Или есть ? На МиниГуи это уже работает, правда привыкнуть надо к PostgreSQL. FW платный продукт, покупать нужно, осваивать тоже нужно... А МиниГуи бесплатен, правда время много потратил на освоение, но чтобы уходить на другую платформу тоже придётся тратить время. Да и подсказки Григория, и других форумчан тоже много дают. На МиниГуи классные примеры получаются... Да и с терминалки мигрировать в МиниГуи возможно, чем и занимаюсь. FW тоже хороший продукт, смотрел в своё время, но подкупил МиниГуи с русскоязычной поддержкой.
|
|
|
|
| Администратор
|
Пост N: 3519
Зарегистрирован: 23.05.05
|
|
Отправлено: 16.12.16 08:43. Заголовок: Как-то здесь все в к..
Как-то здесь все в кучу намешано. Есть харбор с библиотекой hbwin, которая позволяет выгружать документы в word/excel посредством механизма ole. Пример использования этого механизма можно сделать с использованием интерфейса хоть fw/hmg/hwgui, хоть консольного. Консольный пример даже будет предпочтительнее, так как в нем не будет ничего лишнего. Надо выдать на экран какое-то окно с кнопочкой, вот и вся функция fw или hmg Окно с кнопочкой можно сделать красивым, но эта красота никак не связана с выгрузкой таблицы в word. Вот если для класса tsbrowse hmg добавить метод выгрузки в word аналогично методу ExcelOle, тогда это станет частью hmg, и можно будет говорить и примере его использования в hmg. Тоже самое касается и конвертации в pdf или postgres.
|
|
|
|
| постоянный участник
|
Пост N: 5252
Зарегистрирован: 12.09.06
|
|
Отправлено: 16.12.16 14:58. Заголовок: Спасибо Pasha - всё ..
Спасибо Pasha - всё по полочкам поставил ! Осталось только сделать - Консольный пример или для класса tsbrowse hmg добавить метод выгрузки в word аналогично методу ExcelOle.
|
|
|
|
| |
Пост N: 6206
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.12.16 15:05. Заголовок: Andrey пишет: Остал..
Andrey пишет: цитата: | Осталось только сделать - Консольный пример |
| А я сразу и писал про консоль ))
|
|
|
Ответов - 103
, стр:
1
2
3
4
5
6
All
[только новые]
|
|