Отправлено: 22.04.15 20:48. Заголовок: шаблон Microsoft Word

Кто подскажет (и покажет) - требуется использовать шаблон Word (взаимодействие - подготовка, открытие, передача параметров и т.д.), то есть требуется подготовить определенный шаблон Word, передать параметры с программы, сохранить в формате docx в определенном месте или направить на печать.

 Отправлено: 05.12.16 17:05. Заголовок: Возможно не тот хенд..

Возможно не тот хендл поймал у Word

 Отправлено: 05.12.16 17:09. Заголовок: Dima пишет: Возможн..

Dima пишет:

цитата:

Возможно не тот хендл поймал у Word

Нет, то окно.
Окно Ворда исчезает, а потом появляется.

Разобрался.Нужно ставить задержку.
Потом желающие смогут проверить у себя.

 Отправлено: 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()"

 Отправлено: 05.12.16 17:42. Заголовок: SUM (ABOVE)..

SUM (ABOVE)

ЗЫ
Всегда можно спросить гугл

 Отправлено: 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)"                      - ошибка 
 

 Отправлено: 05.12.16 18:51. Заголовок: Andrey пишет: Не по..

Andrey пишет:

цитата:

Не получается вставит формулу.

Подсмотри как это делается в Excel , делал же наверное уже.

 Отправлено: 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)" 

 Отправлено: 05.12.16 21:00. Заголовок: Andrey пишет: По ма..

Andrey пишет:

цитата:

По макросу так: Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:="# ##0,00"

Selection:InsertFormula( "=SUM(ABOVE)", "# ##0,00" )

 Отправлено: 05.12.16 22:27. Заголовок: Andrey пишет: Хотя ..

Andrey пишет:

цитата:

Хотя можно и самому в цикле посчитать, но лучше сделать как положено.

Я делаю в цикле , ведь это же отчет по реальным цифрам а иначе это будет подгонка
нужного результата.

 Отправлено: 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)

 Отправлено: 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

 Отправлено: 09.12.16 09:51. Заголовок: Оставлю здесь ссылку..

Оставлю здесь ссылку на Office 2013 VBA Documentation в формате chm:

http://www.microsoft.com/en-us/download/details.aspx%3Fid%3D40326

 Отправлено: 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

 Отправлено: 14.12.16 15:55. Заголовок: Andrey пишет: Преоб..

Andrey пишет:

цитата:

Преобразование DBF в DOC Преобразование DBF в XLS

Вам бы надо было все это в TsBrows вклюючить.
И добавить преобразование DBF в PDF

 Отправлено: 15.12.16 10:55. Заголовок: ММК пишет: Вам бы н..

ММК пишет:

цитата:

Вам бы надо было все это в TsBrows вклюючить.

Это только Григорий может....

ММК пишет:

цитата:

И добавить преобразование DBF в PDF

Я не делал такого. Может присоединишься ?

Сейчас делаю: DBF_to_PostgreSQL

 Отправлено: 15.12.16 18:40. Заголовок: Andrey пишет: Я не ..

Andrey пишет:

цитата:

Я не делал такого. Может присоединишься ? Сейчас делаю: DBF_to_PostgreSQL

Понимаете Андрей , когда Вам нужна помощь при разработке какой-то задачи - понимаю. Но зачем заниматься Минигуи если все это есть в FW ? Какой смысл? :)

 Отправлено: 15.12.16 22:11. Заголовок: ММК пишет: Но зачем..

ММК пишет:

цитата:

Но зачем заниматься Минигуи если все это есть в FW ? Какой смысл?

Не нашел я что-то вариант DBF в DOC в FW... DBF в PostgreSQL тоже нет в FW... Или есть ?
На МиниГуи это уже работает, правда привыкнуть надо к PostgreSQL.

FW платный продукт, покупать нужно, осваивать тоже нужно...
А МиниГуи бесплатен, правда время много потратил на освоение, но чтобы уходить на другую платформу тоже придётся тратить время. Да и подсказки Григория, и других форумчан тоже много дают.
На МиниГуи классные примеры получаются... Да и с терминалки мигрировать в МиниГуи возможно, чем и занимаюсь.

FW тоже хороший продукт, смотрел в своё время, но подкупил МиниГуи с русскоязычной поддержкой.

 Отправлено: 16.12.16 08:43. Заголовок: Как-то здесь все в к..

Как-то здесь все в кучу намешано.
Есть харбор с библиотекой hbwin, которая позволяет выгружать документы в word/excel посредством механизма ole.
Пример использования этого механизма можно сделать с использованием интерфейса хоть fw/hmg/hwgui, хоть консольного. Консольный пример даже будет предпочтительнее, так как в нем не будет ничего лишнего.
Надо выдать на экран какое-то окно с кнопочкой, вот и вся функция fw или hmg Окно с кнопочкой можно сделать красивым, но эта красота никак не связана с выгрузкой таблицы в word.
Вот если для класса tsbrowse hmg добавить метод выгрузки в word аналогично методу ExcelOle, тогда это станет частью hmg, и можно будет говорить и примере его использования в hmg.
Тоже самое касается и конвертации в pdf или postgres.

 Отправлено: 16.12.16 14:58. Заголовок: Спасибо Pasha - всё ..

Спасибо Pasha - всё по полочкам поставил !
Осталось только сделать - Консольный пример или
для класса tsbrowse hmg добавить метод выгрузки в word аналогично методу ExcelOle.

 Отправлено: 16.12.16 15:05. Заголовок: Andrey пишет: Остал..

Andrey пишет:

цитата:

Осталось только сделать - Консольный пример

А я сразу и писал про консоль ))