L
Lloach
Unregistered / Unconfirmed
GUEST, unregistred user!
为了便于学生复习，决定编个题库，由于试题是让学生打在Word文档里的，
为了现在及以后输入的方便，想用程序读取Word文档的方法，但不知如何实现，
特次请教！！！
为了现在及以后输入的方便，想用程序读取Word文档的方法，但不知如何实现，
特次请教！！！
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
D
dhl2001
Unregistered / Unconfirmed
GUEST, unregistred user!
in
tblob.loadfromfile(filename);
out
tblob.savetofile("xxx.doc")
tblob.loadfromfile(filename);
out
tblob.savetofile("xxx.doc")
硬
硬木花椒
Unregistered / Unconfirmed
GUEST, unregistred user!
后台打开WORD文档，然后读到richedit中，即可在delphi中显示或保存
龙
龙丹
Unregistered / Unconfirmed
GUEST, unregistred user!
1.严格规定Word文档格式
2.使用TWordApplication控件，
WordDoc:=WordApplication.Application.Documents.Open(DocName)，通过WordDoc
直接控制文档，WordDoc提供的方法可参考Word帮助中的编程信息（需安装）
2.使用TWordApplication控件，
WordDoc:=WordApplication.Application.Documents.Open(DocName)，通过WordDoc
直接控制文档，WordDoc提供的方法可参考Word帮助中的编程信息（需安装）
L
Lloach
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上几位能否再具体点啊？
to 龙丹：WordDoc提供的方法可参考Word帮助中的编程信息（需安装）
在那里可下载啊？？？
to 龙丹：WordDoc提供的方法可参考Word帮助中的编程信息（需安装）
在那里可下载啊？？？
X
xianjun
Unregistered / Unconfirmed
GUEST, unregistred user!
先要弄清楚你要实现的目的是什么，只是把DOC文件写入数据库，还是说要怎么样？
因为WORD文档包括了很多格式的，如果你只是读成文本写入数据库，那些格式就全没
了。 显示你是用什么显示出来的？
龙丹说的是Microsoft word visual basic参考，如果你安装了的话应该在下面的目录
C:/Program Files/Microsoft Office/Office10/2052/VBAWD10.CHM
注意我这是Office XP
因为WORD文档包括了很多格式的，如果你只是读成文本写入数据库，那些格式就全没
了。 显示你是用什么显示出来的？
龙丹说的是Microsoft word visual basic参考，如果你安装了的话应该在下面的目录
C:/Program Files/Microsoft Office/Office10/2052/VBAWD10.CHM
注意我这是Office XP
龙
龙丹
Unregistered / Unconfirmed
GUEST, unregistred user!
运行Word时让Office助手不要响应F1键，按F1键，在帮助目录的最后部分应该可以看到
“与编程有关的信息”（2000）或“编程信息”（XP），如果没有，就进入Office安装
程序，把Office工具（2000）或Office共享功能（XP）中的Visual Basic帮助安装上就
可以了。
“与编程有关的信息”（2000）或“编程信息”（XP），如果没有，就进入Office安装
程序，把Office工具（2000）或Office共享功能（XP）中的Visual Basic帮助安装上就
可以了。
L
Lloach
Unregistered / Unconfirmed
GUEST, unregistred user!
to xianjun：
格式就是：每份word试卷文档都分为几大类，如选择题，填空题，简答题等等，
每个大类下再是具体题目。每份word文档中每个大类或同一大类下题目的数量
也都不一定相同。对于选择题，题干下还有几个选择项。
格式就是：每份word试卷文档都分为几大类，如选择题，填空题，简答题等等，
每个大类下再是具体题目。每份word文档中每个大类或同一大类下题目的数量
也都不一定相同。对于选择题，题干下还有几个选择项。
C
ccgaosong
Unregistered / Unconfirmed
GUEST, unregistred user!
那你只能用数据库存储试卷，而没办法做成题库（可以随机选题，生成试卷），
要做成题库，可以有以下几种办法。
1。用delphi程序录入试题。
2。用表格或域等严格限制word文件格式。
要做成题库，可以有以下几种办法。
1。用delphi程序录入试题。
2。用表格或域等严格限制word文件格式。
C
CJF
Unregistered / Unconfirmed
GUEST, unregistred user!
除非要显示的东西一定要通过Word，否则还是不要这么搞的好。。
一般来说，纯文本加图片就可以解决问题的了。。
一般来说，纯文本加图片就可以解决问题的了。。
S
sunys
Unregistered / Unconfirmed
GUEST, unregistred user!
把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;
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!
gz
完
完颜康
Unregistered / Unconfirmed
GUEST, unregistred user!
gz
L
levinqm
Unregistered / Unconfirmed
GUEST, unregistred user!
换个思路，为什么一定要用Word考学生呢？RTF不行吗？
M
mrb
Unregistered / Unconfirmed
GUEST, unregistred user!
用数据流