VPF::Как быстро скопировать TStringGrid в Word

GenaNa

Дата 20.12.2009, 21:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Использую следующий код, который работает слишком медленно, при чем причина не в GetFont(iCol,iRow):

Код


    //заполняю таблицу Word 7x7 с TStringGrid 7x7
    iCol:=0;
    repeat

     iRow:=0;
     repeat

      //здесь получаю нужный шрифт ячейки моей функцией GetFont(iCol,iRow);
      CellFont:=GetFont(iCol,iRow);

      //устанавливаю шрифт
      WordTable.Cell(iCol + 1,iRow + 1).Range.Font.Name:= CellFont.Name;
      WordTable.Cell(iCol + 1,iRow + 1).Range.Font.Color:= CellFont.Color;

      //копирую текст
      WordTable.Cell(iCol + 1,iRow + 1).Range.Text :=  StringGrid.Cells[iRow, iCol];

      iRow:=iRow+1;
     until iRow=7;

     iCol:=iCol+1;
    until iCol=7;

Как его ускорить?

Это сообщение отредактировал(а) GenaNa - 21.12.2009, 08:22

GenaNa

Дата 22.12.2009, 00:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Методом проб, ошибок и шевелением органа между ушами пришел к следующему:

Код


var Word, Direction, Separator, Format: OleVariant;
Line:String;
...
//создаем объект
Word := CreateOleObject('Word.Application');
//открываем новый документ
NewDoc := Word.Documents.Add;
//показываем
Word.Visible := true;

...

//устанавливаю направление и преобладающий шрифт ячеек
Direction := wdCollapseEnd;
Word.Selection.Range.Collapse(Direction);
Word.Selection.Range.Font.Name:=MyFont.Name;
Word.Selection.Range.Font.Color:=MyFont.Color;
Word.Selection.Range.Font.Size:=MyFont.Size;
//Сначала вставляю строки, разделенные запятыми (или другими символами, указанными в переменной Separator)
//формирую строки из StringGrid
Line:=StringGrid.Cells(0,0)+','+StringGrid.Cells(1,0)+','+StringGrid.Cells(2,0)+','+...+StringGrid.Cells(6,0);
Word.Selection.Range.InsertAfter(Line);
Word.Selection.Range.InsertParagraphAfter;
Line:=StringGrid.Cells(0,1)+','+StringGrid.Cells(1,1)+','+StringGrid.Cells(2,1)+','+...+StringGrid.Cells(6,1);
Word.Selection.Range.InsertAfter(Line);
Word.Selection.Range.InsertParagraphAfter;
//разделитель
Separator := ',';
//формат
 Format := wdTableFormatNone;//прозрачные линии. для непрозрачных wdTableFormatGrid1;

//превращаю строки в таблицу
 Word.Selection.Range.ConvertToTable(Separator, EmptyParam, EmptyParam, EmptyParam, Format, EmptyParam,
  EmptyParam, true, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam);

//меняю шрифт нужных отдельных ячеек в только что созданной таблице 
Word.Tables.Item(1).Cell(2,2).Range.Font.Name:=MyCellFont.Name;
Word.Tables.Item(1).Cell(2,2).Range.Font.Color:=MyCellFont.Color;
Word.Tables.Item(1).Cell(2,2).Range.Font.Size:=MyCellFont.Size;

Чтобы вставить таблицу в таблицу:
smile

Код


Range:=Word.Tables.Item(1).Cell(1,1).Range;
Line:='1,2,3';
Range.InsertAfter(Line);
Range.InsertParagraphAfter;
Range.ConvertToTable(Separator, EmptyParam, EmptyParam, EmptyParam, Format, EmptyParam,
  EmptyParam, true, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam);

Работает гораздо быстрее, но не моментально, как хотелось бы

Это сообщение отредактировал(а) GenaNa - 22.12.2009, 00:49

dvamaster

Дата 22.12.2009, 07:57 (ссылка)

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

Загрузка ...

Опытный

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

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

есть такое

StringGrid.Row[i].Delimiter

StringGrid.Row[i].DelimitedText

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

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

cemick

Дата 22.12.2009, 09:35 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Цитата(GenaNa @ 22.12.2009, 00:42

)

word.Visible := true;

Word работает гораздо быстрее если он не видим

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