VPF::Как экспортировать таблицу в MS Word в TStringGrid?

Pakshin A. S.

Дата 10.11.2004, 20:06 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


uses  
  ComObj;  

procedure TForm1.Button1Click(Sender: TObject);  
const  
  AWordDoc = 'C:\xyz\testTable.doc';  
var  
  MSWord, Table: OLEVariant;  
  iRows, iCols, iGridRows, jGridCols, iNumTables, iTableChosen: Integer;  
  CellText: string;  
  InputString: string;  
begin  
  try  
    MSWord := CreateOleObject('Word.Application');  
  except  
    // Error....  
    Exit;  
  end;  
    
  try  
    MSWord.Visible := False;  
    MSWord.Documents.Open(AWordDoc);  

    // Get number of tables in document  
    iNumTables := MSWord.ActiveDocument.Tables.Count;  

    InputString := InputBox(IntToStr(iNumTables) +  
      ' Tables in Word Document', 'Please Enter Table Number', '1');  
    // Todo: Validate string for integer, range...  
    iTableChosen := StrToInt(InputString);  

    // access table  
    Table := MSWord.ActiveDocument.Tables.Item(iTableChosen);  
    // get dimensions of table  
    iCols := Table.Rows.Count;  
    iRows := Table.Columns.Count;  
    // adjust stringgrid columns  
    StringGrid1.RowCount := iCols;  
    StringGrid1.ColCount := iRows + 1;  

    // loop through cells  
    for iGridRows := 1 to iRows do  
      for jGridCols := 1 to iCols do  
      begin  
        CellText := Table.Cell(jGridCols, iGridRows).Range.FormattedText;  
        if not VarisEmpty(CellText) then  
        begin  
          // Remove Tabs  
          CellText := StringReplace(CellText,  
            #$D, '', [rfReplaceAll]);  
          // Remove linebreaks  
          CellText := StringReplace(CellText, #$7, '', [rfReplaceAll]);  

          // fill Stringgrid  
          Stringgrid1.Cells[iGridRows, jGridCols] := CellText;  
        end;  
      end;  
    //..  
  finally  
    MSWord.Quit;  
  end;  
end;

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