procedure TForm1.btn1Click(Sender: TObject);
var FileName : OleVariant;
begin
with TWordDocument.Create(Self) do
try
Connect;
Content.Text := 'Hello world!';
FileName := 'd:\kk\AA.doc';
SaveAs(FileName);
finally
Disconnect;
Free;
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024