Question

在Delphi中输入的数据填入Word表格中，并显示Word。

比如把EDIT的录入信息输入Word的第一列的第二格中，怎么做？代码和组件要哪些？希望各大虾给详细的做法，小女子编程不容易啊！！！！

Answer 1

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;

追问

这个里面的外部文档的路径'C:\A.doc'是绝对路径，怎样才能用相对路径打开呢？？

追答

var
DocFileName: Variant;
...
begin
...
DocFileName := ExtractFilePath(ParamStr(0)) + '\Doc\A.doc';//程序所在目录下的Doc目录下的A.doc
MyDoc := MyWord.Documents.Open(FileName := DocFileName, ReadOnly:=True);
...
end;