Карта сайтаСсылкиКонтакты

Экспорт таблицы MS Word в TStringGrid

PDF Печать
Статьи

uses
  ComObj;

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

    // Получить количество таблиц в документе
    iNumTables := MSWord.ActiveDocument.Tables.Count;

    InputString := InputBox(IntToStr(iNumTables) +
      ' Tables in Word Document', 'Please Enter Table Number', '1');
    iTableChosen := StrToInt(InputString);

    // Доступ к таблице
    Table := MSWord.ActiveDocument.Tables.Item(iTableChosen);
    // Получить размерность таблицы
    iCols := Table.Rows.Count;
    iRows := Table.Columns.Count;
    // Корректировать столбцы StringGrid
    StringGrid1.RowCount := iCols;
    StringGrid1.ColCount := iRows + 1;

    // Цикл по ячейкам
    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
          // Удалить табуляцию
          CellText := StringReplace(CellText,
            #$D, '', [rfReplaceAll]);
          // Удалить разрыв строки
          CellText := StringReplace(CellText, #$7, '', [rfReplaceAll]);

          // Заполнить StringGrid
          Stringgrid1.Cells[iGridRows, jGridCols] := CellText;
        end;
      end;
    //..
  finally
    MSWord.Quit;
  end;
end;

 

Добавить комментарий


Защитный код
Обновить