如何将Word文档读入Delphi中的数据库???(100分)

  • 主题发起人 主题发起人 Lloach
  • 开始时间 开始时间
L

Lloach

Unregistered / Unconfirmed
GUEST, unregistred user!
为了便于学生复习,决定编个题库,由于试题是让学生打在Word文档里的,
为了现在及以后输入的方便,想用程序读取Word文档的方法,但不知如何实现,
特次请教!!!
 
in
tblob.loadfromfile(filename);
out
tblob.savetofile("xxx.doc")
 
后台打开WORD文档,然后读到richedit中,即可在delphi中显示或保存
 
1.严格规定Word文档格式
2.使用TWordApplication控件,
WordDoc:=WordApplication.Application.Documents.Open(DocName),通过WordDoc
直接控制文档,WordDoc提供的方法可参考Word帮助中的编程信息(需安装)
 
楼上几位能否再具体点啊?
to 龙丹:WordDoc提供的方法可参考Word帮助中的编程信息(需安装)
在那里可下载啊???
 
先要弄清楚你要实现的目的是什么,只是把DOC文件写入数据库,还是说要怎么样?
因为WORD文档包括了很多格式的,如果你只是读成文本写入数据库,那些格式就全没
了。 显示你是用什么显示出来的?

龙丹说的是Microsoft word visual basic参考,如果你安装了的话应该在下面的目录
C:/Program Files/Microsoft Office/Office10/2052/VBAWD10.CHM
注意我这是Office XP
 
运行Word时让Office助手不要响应F1键,按F1键,在帮助目录的最后部分应该可以看到
“与编程有关的信息”(2000)或“编程信息”(XP),如果没有,就进入Office安装
程序,把Office工具(2000)或Office共享功能(XP)中的Visual Basic帮助安装上就
可以了。
 
to xianjun:
格式就是:每份word试卷文档都分为几大类,如选择题,填空题,简答题等等,
每个大类下再是具体题目。每份word文档中每个大类或同一大类下题目的数量
也都不一定相同。对于选择题,题干下还有几个选择项。
 
那你只能用数据库存储试卷,而没办法做成题库(可以随机选题,生成试卷),
要做成题库,可以有以下几种办法。
1。用delphi程序录入试题。
2。用表格或域等严格限制word文件格式。
 
除非要显示的东西一定要通过Word,否则还是不要这么搞的好。。

一般来说,纯文本加图片就可以解决问题的了。。
 
把WORD的内容读到MEMO1中,在写如数据库
uses comobj
procedure Tform1.button1click(Sender: TObject);
var
NewDoc:variant;
V: OleVariant;
FileNameTemp:String;
begin
if fileexists('c:/a.doc) then
begin
try
FileNameTemp :='c:/a.doc' ;
V := CreateOleObject('Word.Application');
NewDoc :=V.Documents.Open(FileNameTemp);
NewDoc.SaveAs(FileName :='C:/TEMP.rtf',FileFormat:=3);
NewDoc.Close;
V.Quit;
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile('C:/TEMP.rtf');
deletefile('C:/TEMP.rtf');
except
showmessage('c:/a.doc 可能已打开');
end;
end;
end;
 
换个思路,为什么一定要用Word考学生呢?RTF不行吗?
 
后退
顶部