VPF::Как перенести содержимое StringGrid в Word...

Komatoz

Дата 2.7.2004, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 2.7.2004
Где: Ю-Сахалинск

Репутация: нет
Всего: нет

Написал в Delpphi 7 поиск по базе данных, выводится результат в StringGrid'e и было бы шоколадно если бы его экспортировать в Word (XP или 2003) Может быть у кого нибудь есть пример... А то в nete находил исходники, а они не работают...

dr.ZmeY

Дата 2.7.2004, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Политолог

Профиль
Группа: Участник Клуба
Сообщений: 3892
Регистрация: 26.3.2002
Где: ..::STALINGRAD::. .

Репутация: нет
Всего: 60

Код

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;

Взято из ФАКа Вита... Проверил... Работает...

--------------------

Мой блог в ЖЖ

Guest

Дата 5.7.2004, 00:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здесь на форуме был такой вопрос. Воспользуйся поиском.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »