Как экспортировать таблицу из MS Word в TStringGridDelphi , Технологии , OLE Automation MSOfficeКак экспортировать таблицу из MS Word в TStringGridАвтор: http://www.swissdelphicenter.ch
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, #0$D,'', [rfReplaceAll]); // Remove linebreaks CellText := StringReplace(CellText, #0$7,'', [rfReplaceAll]); // fill Stringgrid Stringgrid1.Cells[iGridRows, jGridCols] := CellText; end; end; //.. finally MSWord.Quit; end; end; Статья Как экспортировать таблицу из MS Word в TStringGrid раздела Технологии OLE Automation MSOffice может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |