Как экспортировать таблицу в MS Word в TStringGrid

Как экспортировать таблицу в MS Word в TStringGrid

uses
comobj;

procedure tform1.button1click(sender: tobject);
const
aworddoc = 'c:xyztesttable.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;

Источник: http://www.swissdelphicenter.ch

Эта запись была добавлена в Понедельник, 26 мая, 2008 - 20:08 В разделы Microsoft Office, Word. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.