...export a MS Word Table to a TStringGrid?

Author: Thomas Stutz

Category: Objects/ActiveX

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base