whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

35 Visitors Online


 
...export a MS Word Table to a TStringGrid?
Autor: Thomas Stutz
[ Print tip ]  

Tip Rating (15):  
     


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;

 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners