包括汉字/英文/数字 跪谢!
解决方案 »
- 不显示删除回复 显示所有回复 显示星级回复 显示得分回复 收藏 怎么用delphi读取autoCAD的dwg文件?
- 免费开源的 CnPack IDE 专家包发布 0.9.2 版 !
- 如何在Listbox里实现对目标目录文件夹的定时自动刷新?
- 提示找不到system.pas是怎么回事??????????
- 請問高手這是什么算法?
- 怎样解决RAVE报表中dbtext超过长度后,让其自动换行???
- 退出程序时怎么样把所有打开的资源或应用释放???
- 我是初学者,一个很菜的问题,希望大家能帮忙!非常感谢!
- 为什么我的程序一启动,如果数据多一点,就cpu100%,什么都点不了啊。
- ShowModa窗体l如何一定要显示在前面
- 对文本格式化读写如何操作?
- 请问:怎样使 memo或rich edit 在lines.add后能focus 在最后一行呢?
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var myWord:Variant;
begin
myWord := CreateOleObject('Word.Application');
myWord.Visible := False;
myWord.Documents.Open('d:\z.doc');
myWord.Selection.WholeStory;
myWord.Selection.Copy;
myWord.Application.Quit(0);
Memo1.Clear;
Memo1.PasteFromClipboard;
end;