Экспорт из StringGrid в Word

[Polotenchik]

Люди помогите, уже замучился. Вот я нашел код:

uses

ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
WordApp, NewDoc, WordTable: OLEVariant;
iRows, iCols, iGridRows, jGridCols: Integer;

begin

try
   // Create a Word Instance
   // Word Instanz erzeugen
   WordApp := CreateOleObject('Word.Application');
except
   // Error...
   // Fehler....
   Exit;
end;

// Show Word
// Word anzeigen

WordApp.Visible := True;

// Add a new Doc
// Neues Dok einfugen

NewDoc := WordApp.Documents.Add;

// Get number of columns, rows
// Spalten, Reihen ermitteln

iCols := StringGrid1.ColCount;
iRows := StringGrid1.RowCount;

// Add a Table
// Tabelle einfugen

WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);

// Fill up the word table with the Stringgrid contents
// Tabelle ausfullen mit Stringgrid Daten

for iGridRows := 1 to iRows do
   for jGridCols := 1 to iCols do
     WordTable.Cell(iGridRows, jGridCols).Range.Text :=
       StringGrid1.Cells[jGridCols - 1, iGridRows - 1];

// Here you might want to Save the Doc, quit Word...
// Hier evtl Word Doc speichern, beenden...
// Cleanup...

WordApp := Unassigned;
NewDoc := Unassigned;
WordTable := Unassigned;

end;

он рабочий, но экспортируется только текст, а как сделать, чтобы и поля таблицы отображались в ворде, а так же экспортировалось в том шрифте, какой указан в grid ну или в таком какой мне нужно? Цвета желательно что бы были.

Перепробовал уже куча гридов разных и у всех с этим проблема. Посоветуйте что нибудь?!

[SNUPY]

Меня в экселе часто выручает макросы... так сказать если не знаю как сделать в делфях =\ ставлю на запись макрос... делаю все что нужно... потом смотрю код в VBA пытаюсь провести || с Delphi и методом проб и ошибок получаеться =)))... Должно получиться.

[Alter]

Для Excel:
Экспортировать TStringGrid в Excel-файл
Экспортировать TStringGrid в Excel-файл 2
Экспортировать TStringGrid в Excel-файл 3

Для Word:
Управление Word-ом из Delphi
Насчёт шрифтов, где-то видел, но не вспоминается где.

[Polotenchik]

Блин народ помогите а?! Уже сил нет! Alter, Управление Word-ом из Delphi прочитал но как это связать с StringGrid и как это применять так и не понял и не смог.
Черт с этими шрифтами, помогите, как хотяб экспортировать так, чтобы в ворде отображались поля (линии) ?
Помогите пожалуйста! Очень прошу!

Забыл сказать, у меня ведь вообще после этого:

Далее для работы с Word-ом нам потребуется библиотека типов Word-а, это делается так:
Project, Import Type Library, Add, далее переходим в папку, где стоит Word ( у меня это - "c:\program files\microsoft office) , заходим в папку Office и выбираем файл - msword8.olb (цифра -? версии Word-а - у Вас может отличаться ) или excel8.olb (для Excel).Нажимаем Оk. Delphi создаст 2 файла - Word_tlb.pas и Office_tlb.pas, их надо включить в раздел uses модуля Main нашего проекта:

говорит что это все уже есть и ссылкается на компонент WordApplication. А если прописать в uses Office_Tlb, word_tlb то ругается.

[Evgeniy26]

Глянь пример.

[Polotenchik]

Сообщение от Evgeniy26

Глянь пример.

Ничего себе! Громадное спасибо!

Теперь пытаюсь понять:

var
  W, Table: Variant;
  Row, Col, i, j: Integer;
begin

//создаем документ

  W := CreateOleObject('Word.Application');
  W.Documents.Add;

//создаем таблицу в документе. Count-ми указываем сколько столбцов и строк.

  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  StringGrid1.RowCount, StringGrid1.ColCount);

//не понятно
  Table := W.ActiveDocument.Tables.Item(1);
//тоже не ясно! Что еще за сетка таблицы?
  Table.Style := 'Сетка таблицы';

//дальше ясно. заносим в ячейки данные.

  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  W.Visible := True;

Объясните пожалуйста не понятные мне моменты. И может заодно подскажите, как сделать, чтобы и с определенным шрифтом экспорт произошел. Например пусть в переменной font будет название шрифта и надо, чтобы все экспортировалось с этим шрифтом.

Так же хотелось бы, что бы определенную строку можно было выделить жирным.

Если не сложно так же допишите пример или сюда подкиньте код! Большое Вам спасибо! А то я уже было сломался =) Хотел все на время забросить...

[Evgeniy26]

Шрифт и Цвет:
Для яцейки:

for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
    begin
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
      Table.Cell(i + 1, j + 1).Range.Font.Color :=
      ColorToRGB(StringGrid1.Font.Color);
      Table.Cell(i + 1, j + 1).Range.Font.Name := StringGrid1.Font.Name;
    end;

//Выбираем таблицу которую будем использовать. Можно так W.ActiveDocument.Tables.Item(1).Sty le := 'Сетка таблицы';
Table := W.ActiveDocument.Tables.Item(1);
//У меня в 2007 почему-то когда я создаю таблицу, сетка не прорисовывается. Пришлось самому задавать стиль сетки.
Table.Style := 'Сетка таблицы';

Стиль ячейки:

Table.Cell(i + 1, j + 1).Range.Font.Bold := 2;

[Polotenchik]

И вновь примного благодарен! Буду пробовать! А еще вопрос такой: можно ли как-то в определенные ячейки ввести свой текст. смысл такой: надо что бы в 1-ой строке (заголовках) был текст типа x в степени 2, т.е с учетом регистров верхних и нижних. Вот я и хочу в первую строку самому присвоить текст (а не брать его из грида), а дальше как и идет по коду, только не

or i := 0 to StringGrid1.RowCount - 1 do

а

or i := 1 to StringGrid1.RowCount - 1 do

С такой задачей поможете?

Так же хотелось бы, чтобы перед таблицей была надпись: Таблица 1. Бла бла бла. И интересует, каким образом можно управлять шириной колонок!?

//У меня в 2007 почему-то когда я создаю таблицу, сетка не прорисовывается. Пришлось самому задавать стиль сетки.
Table.Style := 'Сетка таблицы';

на этой почве и возникла эта тема! Как Вы только до этого догадались мне интересно =)

[Stilet]

Так же хотелось бы, чтобы перед таблицей была надпись: Таблица 1. Бла бла бла.

Ну поставь таблицу в GroupBox и задай этому боксу Caption. Будет похоже на название таблицы

каким образом можно управлять шириной колонок!?

Есть свойство ColWidth[]. Это массив. Вот указывай номер колонки и ее размер.

[krik556]

а как дать название таблице в word'е?