5,927
社区成员




procedure TForm13.btn2Click(Sender: TObject);
var
WordApp, WordDoc: OleVariant;
begin
try
WordApp := CreateOleObject('Word.Application');
except on E: Exception do
raise Exception.Create('Error Message');
end;
WordApp.Visible := False;
WordDoc := WordApp.Documents.Open('c:\cc.doc');
try
WordApp.Selection.TypeText('学 生 评 教 结 果');
WordApp.Selection.TypeParagraph;//回车
//WordDoc.saveas('c:\cc.doc'); //隐藏这句即可
finally
WordDoc.Saved := True;
WordDoc.Close;
WordApp.Quit;
end;
ShowMessage('ok');
end;
procedure TForm13.btn2Click(Sender: TObject);
var
WordApp, WordDoc: OleVariant;
begin
try
WordApp := CreateOleObject('Word.Application');
except on E: Exception do
raise Exception.Create('Error Message');
end;
WordApp.Visible := False;
WordDoc := WordApp.Documents.Open('c:\cc.doc');
try
WordApp.Selection.TypeText('学 生 评 教 结 果');
WordApp.Selection.TypeParagraph;//回车
WordDoc.saveas('c:\cc.doc');
finally
WordDoc.Saved := True;
WordDoc.Close;
WordApp.Quit;
end;
ShowMessage('ok');
end;