Сообщений в теме: 17

[Dr@gnir]

народ подскажи хде надыбить компонент для сброса данных в ms word.

срошно надо.

[Magic Team 9]

Delphi? torry.ru?

[Dr@gnir]

Delphi?

Да делфя.

[phalanx]

Какая стоит задача то?

Можно просто использовать библиотеки ворда.
Вот только сам ворд должен стоять на машине, где запускается программа.

Вот пример, правда на VB.NET, но от этого суть не меняется:
Dim wordApp As New Word.Application() ' объявление
Dim hasSpellError As Boolean = wordApp.CheckSpelling(rtfDocument.Text) ' вызов метода проверки орфографии

[Dr@gnir]

Какая стоит задача то?

короче есть документ в ворде и надо вставить в некоторых местах данные из базы.

ну компонент типа репорта.

[Magic Team 9]

короче есть документ в ворде и надо вставить в некоторых местах данные из базы.
ну компонент типа репорта.

MSDAC пробовал? Должны идти с последними версиями Delphi.

[Dr@gnir]

короче есть документ в ворде и надо вставить в некоторых местах данные из базы.
ну компонент типа репорта.

MSDAC пробовал? Должны идти с последними версиями Delphi.

С какой именно?

[phalanx]

Есть ActiveX и .NET контрол под названием Active Reports от DataDynamics.
У него есть возможности экспорта в форматы RTF, XLS, TIF, PDF, HTML. Если тебя устроит RTF, то дерзай.
Лекарство для ActiveX версии доступно на асте. Для .NET на http://zor.org/best.

Кстати считается лучшим отчетным контролом для разработчиков. Кристал Репортс больше расчитан на юзеров, к сожалению...

[Magic Team 9]

короче есть документ в ворде и надо вставить в некоторых местах данные из базы.
ну компонент типа репорта.

MSDAC пробовал? Должны идти с последними версиями Delphi.

С какой именно?

Вроде, начиная с пятой. Только вот не могу сказать есть ли они в Стандарт/Профессионал.

[Delight]

Поднимаю тему.

Очень нужны пакеты компонентов (Delphi), связанные с cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid.

По гуглу на скач ничего не нашла что-то, только упоминания. Кто юзает помогите плис, или наведите на сурс?

Заранее спасибо!

[w@lter]

Поднимаю тему.

Очень нужны пакеты компонентов (Delphi), связанные с cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid.

По гуглу на скач ничего не нашла что-то, только упоминания. Кто юзает помогите плис, или наведите на сурс?

Заранее спасибо!

Это компоненты с пакета DevExpress. Очень мощная штука кстати...

[Zulkar]

вот код на С++Builder без всяких компонентов. Ручками, надо ручками.

  Variant Word=CreateOleObject("Word.Application");
  Word.OlePropertySet("Visible",1);
  Variant Documents=Word.OlePropertyGet("Documents");
  Documents.OleProcedure("Add");
  Variant ActiveDocument=Word.OlePropertyGet("ActiveDocument");
  Variant Tables=ActiveDocument.OlePropertyGet("Tables");
  ActiveDocument.OleProcedure("Select");
  Variant Selection = Word.OlePropertyGet("Selection");
  Variant Range = Selection.OlePropertyGet("Range");
  Tables.OleProcedure("Add", Range, 10, 5);
  Variant Font = Selection.OlePropertyGet("Font");
  Font.OlePropertySet("Name", "Arial");
  Font.OlePropertySet("Size", 14); Font.OlePropertySet("Bold", "1");
  Variant ParagraphFormat = Selection.OlePropertyGet("ParagraphFormat");
  ParagraphFormat.OlePropertySet("Alignment", 2);
  Selection.OleProcedure("TypeText", ":)");
  Selection.OleProcedure("MoveRight", 1);
  Selection.OleProcedure("TypeText", "Zulkar");
  ActiveDocument.OleProcedure("SaveAs", "Zulkar");
  Word.OleProcedure("Quit");
  Word.OleProcedure("Quit");

А вообше чтобы создать документ практически любой сложности
1)запускаем Word,
2)Сервис->Macros->Record,
3) Делаем в ворде что нам надо
4) Нажимаем Alt+F11 (Visual Basic)
5) Выбирам макрос
6) Транслируем код макроса в Delfi
7) Радуемся.

Вот для этого примера будет следуюший макрос:

Sub Table() 
'
' Gugu Макрос
' Макрос записан 05.01.2008 Alexander 
' ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=10, NumColumns _ :=5 
   Selection.TypeText Text:=":)" 
   Selection.HomeKey Unit:=wdLine, Extend:=wdExtend 
   Selection.Font.Name = "Arial" Selection.Font.Size = 12 
   Selection.Font.Bold = wdToggle 
   Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.MoveRight Unit:=wdCell
   Selection.TypeText Text:="Zulkar" 
End Sub

[Visual1]

А вообше чтобы создать документ практически любой сложности
1)запускаем Word,
2)Сервис->Macros->Record,
3) Делаем в ворде что нам надо
4) Нажимаем Alt+F11 (Visual Basic)
5) Выбирам макрос
6) Транслируем код макроса в Delfi
7) Радуемся.

Так уж и любой сложности?
А если мне, например, необходимо создать документ Word с индивидуальными (нестандартными) смарт-тегами?

[Zulkar]

Я сказал практически

[Visual1]

2 Zulkar: Да конечно, кто бы спорил - это была "шутка юмора".

А вообще, создание смарт-тегов собственными силами - практически нужная задача. Мне, например, достался подлинный буржуйский Office, он поставляется с очень бедным набором смарт-тегов. В отличие от русского Word'a в нем совершенно нет смарт-тегов, преобразующих мили в км, дюймы в см, градусы Фаренгейта в градусы Цельсия и т.д.

2 All: Есть ли здесь такие, кто решал эту интересную проблему? Или просто знает об этом немного больше, чем рассказывается в MSDN Library? Буду рад обсудить.

[Visual1]

Кстати, если кому интересно. Мой первый самодельный (пока еще очень далекий от совершенства) смарт-тег выглядит примерно так:

Он умеет преобразовывать градусы Фаренгейта в градусы Цельсия. С его помощью пользователь может просто посмотреть преобразованное значение, но может и заменить этим значением градусы Фаренгейта прямо в тексте своего документа.

Конечно, обычному русскоязычному пользователю MS Office такие смарт-теги на практике нужны редко (если вообще когда-либо нужны). К тому же, аналогичный смарт-тег (и даже лучше - полностью на русском языке) есть в русской версии MS Office. Однако, существует еще очень много важных (и коммерчески выгодных для разработчика) применений смарт-тегов. При желании сами можете догадаться, какие...

[vanvanvan]

Visual1, а не мог бы исходники скинуть?

[Visual1]

Скинул в личку (исходник на языке C#, компилировал в среде Visual Studio 2005).