Отправлено: 13.11.14 22:58. Заголовок: Нужно сохранить отчет в формате .DOC для Microsoft Word . КАК?

Пока предполагаю по аналогии с .XLS созданием методом OLE .
У меня отчет - бланк Наряд-заказа с СТО с реквизитами сторон , тремя таблицами
и итогами .... Для красоты несколько линий для разделения тематики .

 Отправлено: 10.12.14 16:23. Заголовок: Экспериментирую с вы..

Экспериментирую с выводом формы в MS Word ......

1) Есть-ли возможность 'прямого' вывода строки в определенную позицию на листе , например через координаты .... в EXCELL с этим удобнее - указываем номер ячейки X,Y и всё ,,,,,

2) Так и не понял как организовать таблицу в указанном месте листа ....
Вообще не понял как из макроса сделать команды в Harbour

 Отправлено: 10.12.14 20:58. Заголовок: Softlog86 пишет: Во..

Softlog86 пишет:

цитата:

Вообще не понял как из макроса сделать команды в Harbour

Смотри ->
Dima пишет:

цитата:

поиск на форуме Word.Application

 Отправлено: 11.12.14 21:25. Заголовок: Softlog86 Есть прос..

Softlog86
Есть простой способ , руками пробнул работает.
Опишу чуть позже.

 Отправлено: 11.12.14 22:26. Заголовок: Открываем документ E..

Открываем документ EXCEL и всю наборку делаем в нем включая таблицы и тд и тп.
Выделяем нужный кусок документа и копируем в буфер.
Делаем вставку в чистом документе WORD.
Все.

ЗЫ
Юзал таблицу , раскрасил её , внес данные , все сработало.

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

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

 Отправлено: 12.09.17 16:35. Заголовок: А что не пашет как в..

А что не пашет как в примере ?
azoo пишет:

цитата:

hb_oemtoansi(

Что то мне кажется что hb_oemtoansi уже и не нужен если свежий Harbour

 Отправлено: 12.09.17 16:45. Заголовок: Dima, не важно, прос..

Dima, не важно, просто исходник набран в 866 кодировке.
Можно и так: oText:Text += "Дата" + hb_eol()
Вопрос в том, что в Wordе текст получается одинаковым, т.е. без учёта параметров Size, Bold

 Отправлено: 12.09.17 17:38. Заголовок: azoo Даже не знаю, ..

azoo
Даже не знаю, я не работал с "Word.Application" , так как спокойно обходимся без него.
Попробуй на форуме поиск дёрнуть по фразе Word.Application , может примеры найдешь какие
или загугли на предмет Word.Application + Harbour

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

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

Примеры для МиниГуи, но можно использовать и для терминалки.