VPF::как сохранить TStringGrid в Word - Форум программистов

Lizka

Дата 22.6.2004, 08:12 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.6.2004

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

Подскажите, плз, как реализовать сохранение в Word? Буду рада всему: советам, ссылкам, замечаниям и тд

_vova_

Дата 22.6.2004, 09:57 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.6.2004
Где: Харьков

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

Смотреть надо Хелп по вижуал васику, который внутри ворда сидит.

Код

[code]procedure TForm1.Button1Click(Sender: TObject);
Var
   I , j : Integer;
   vv , Table : Variant;
begin
   V := CreateOleObject( 'Word.Application' )  ;
   V.Visible := True;

   V.Documents.Add;
   vv := V.ActiveDocument.Range;
   Table := V.ActiveDocument.Tables.Add( vv , StringGrid1.ColCount - 1 , StringGrid1.RowCount - 1  );

   For i := 1 to StringGrid1.ColCount - 1 Do
   For j := 1 to StringGrid1.RowCount - 1 Do
      StringGrid1.Cells[ i , j ] := FloatToStr( Random( 200 ) );

   For i := 1 to StringGrid1.ColCount - 1 Do
   For j := 1 to StringGrid1.RowCount - 1 Do
      Table.Cell(i,j).Range.Text := StringGrid1.Cells[ i , j ];
end;

[/code]
Добавлено @ 09:58
Забыл добавить V тоже Variant.

Lizka

Дата 22.6.2004, 10:10 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.6.2004

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

Спасибо, всё работает.
А как просто строки выводить?

Lizka

Дата 22.6.2004, 10:31 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.6.2004

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

желательно, чтобы каждая строка начиналась с начала новой строки

_vova_

Дата 22.6.2004, 11:00 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.6.2004
Где: Харьков

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

Цитата

Смотреть надо Хелп по вижуал васику, который внутри ворда сидит.

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

Цитата

vv := V.ActiveDocument.Range;

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