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

L

Lloach

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #1

为了便于学生复习，决定编个题库，由于试题是让学生打在Word文档里的，
为了现在及以后输入的方便，想用程序读取Word文档的方法，但不知如何实现，
特次请教！！！

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #2

in
tblob.loadfromfile(filename);
out
tblob.savetofile("xxx.doc")

 

硬

硬木花椒

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #3

后台打开WORD文档，然后读到richedit中，即可在delphi中显示或保存

 

龙

龙丹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #4

1.严格规定Word文档格式
2.使用TWordApplication控件，
WordDoc:=WordApplication.Application.Documents.Open(DocName)，通过WordDoc
直接控制文档，WordDoc提供的方法可参考Word帮助中的编程信息（需安装）

 

L

Lloach

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #5

楼上几位能否再具体点啊？
to 龙丹：WordDoc提供的方法可参考Word帮助中的编程信息（需安装）
在那里可下载啊？？？

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #6

先要弄清楚你要实现的目的是什么，只是把DOC文件写入数据库，还是说要怎么样？
因为WORD文档包括了很多格式的，如果你只是读成文本写入数据库，那些格式就全没
了。 显示你是用什么显示出来的？

龙丹说的是Microsoft word visual basic参考，如果你安装了的话应该在下面的目录
C:/Program Files/Microsoft Office/Office10/2052/VBAWD10.CHM
注意我这是Office XP

 

龙

龙丹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #7

运行Word时让Office助手不要响应F1键，按F1键，在帮助目录的最后部分应该可以看到
“与编程有关的信息”（2000）或“编程信息”（XP），如果没有，就进入Office安装
程序，把Office工具（2000）或Office共享功能（XP）中的Visual Basic帮助安装上就
可以了。

 

L

Lloach

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #8

to xianjun：
格式就是：每份word试卷文档都分为几大类，如选择题，填空题，简答题等等，
每个大类下再是具体题目。每份word文档中每个大类或同一大类下题目的数量
也都不一定相同。对于选择题，题干下还有几个选择项。

 

C

ccgaosong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-03

• #9

那你只能用数据库存储试卷，而没办法做成题库（可以随机选题，生成试卷），
要做成题库，可以有以下几种办法。
1。用delphi程序录入试题。
2。用表格或域等严格限制word文件格式。

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-03

• #10

除非要显示的东西一定要通过Word，否则还是不要这么搞的好。。

一般来说，纯文本加图片就可以解决问题的了。。

 

S

sunys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #11

把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;

 

A

ably

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #12

gz

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #13

gz

 

L

levinqm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #14

换个思路，为什么一定要用Word考学生呢？RTF不行吗？

 

M

mrb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #15

用数据流