用RichEdit如何导入(导出)WORD(EXCEL)文档?
除了RichEdit还有控件比较好.
除了RichEdit还有控件比较好.
解决方案 »
- 超难!非高手勿进!给100分!
- 在一个DLL的函数中,怎么能得到本DLL的路径??
- ADOQuery1.SQL.Add('insert into a_table (ceshi)values(''ceshi'')');
- 可用分超过10000分,是什么样的人?
- 某表,一条记录有30多个字段,QuickReport中,选用A4纸,一页打不下一条记录怎么办,请高手出招!!!!
- 想买服务器!!!!请各位老大给个建议!!!
- websnap应用程序对access表访问的问题
- 关于paramcount。
- 调用文本框内容
- delphi高手在那里?
- 小问题,帮帮忙??
- 要使用TRegistry读写注册表要在Uses中写如什么关键字?
var
NewDoc: Variant;
V: OleVariant;
FileNameTemp :String;
begin
if OpenDialog1.Execute then //uses ComObj, OleServer, Word2000;
begin
FileNameTemp := OpenDialog1.FileName;
try
V := CreateOleObject('Word.Application');//建立自动化对象
NewDoc :=V.Documents.Open(OpenDialog1.FileName); //打开指定文件
NewDoc.Content.Copy; //拷贝到剪贴板
RichEdit1.Lines.Clear;
RichEdit1.PasteFromClipboard; //粘贴
NewDoc.Close; //关闭Word文件
finally
V.Quit; //释放自动化对象
end;
end;
end;
导出类似
要出现这个错误:Mothed "Docments not supported by Automation object"