Tabellenportierung von MS Word nach MS Excel

[Chemiker]

Hallo rajuneon,

gut, also der erste Ansatz könnte in etwa so aussehen:

Delphi-Quellcode:

procedure TForm3.btWordStartenClick(Sender: TObject);
var
  aWord: OLEVariant;
  aExcel: OLEVAriant;
begin
  aWord := CreateOleObject('Word.Application');
  aWord.Visible := True;
  aWord.Documents.Add;
  aWord.Documents.Open('D:\Eigene Dateien von Internet\TestTabelle.doc');
  aWord.Selection.WholeStory;
  aWord.Selection.Copy;
  aWord.Quit;

  aExcel:= CreateOleObject('Excel.Application');
  aExcel.Visible := True;
  aExcel.Workbooks.add;
  aExcel.ActiveSheet.Paste;
  aExcel.Sheets['Tabelle1'].Select;
  aExcel.Sheets.Add;
end;

Den Rest kann mit Hilfe eines aufgezeichneten Excel-Macro leicht umgesetzt werden.


Bis bald Chemiker