uses
word2000, comobj;
var
MyWord, MyDoc :Variant;
begin
MyWord := CreateOleObject('Word.Application');
MyDoc := CreateOleObject('Word.Document');
MyWord.Visible := 1;
MyDoc := MyWord.Documents.Open(FileName := 'C:\A.doc', ReadOnly:=False);//打开外部Word文档
MyDoc.Tables.Item(表格序号).Cell(x, y).Range.Text := 'abcd';
...
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024