求助各位，如何将大批量的word文档转变成纯文本格式？（200）(200分)

W

wsj1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #1

求助各位，如何将大批量的word文档转变成纯文本格式？（200）

 

R

raindu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-01

• #2

u can use D2T.exe
不过对95的文档会有问题,对97的文档完全可用.

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-01

• #3

>>

 

W

wsj1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #4

我已经自己解决问题

 

L

Lera

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #5

最好的办法是用VBA代码来实现.
以前我看到这方面的例子的.

 

Y

yamazeki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #6

怎么解决的，是用程序吗？我想知道？

 

J

Jeny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #7

我也正面临此问题，你是如何解决的？？？？？

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #8

我想到一个办法，不知可不可行。
大家知道用ie是可以打开word文档的。（ole）
我设想用webbrowser控件打开word文档，然后调用webbrowser的
接口方法将其保存为文本文件。

 

Q

Qingzhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-03

• #9

TO：wsj1208
你应该把你的解决方法贴出来，光提问，不做贡献？

 

S

sandy suen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #10

我们目前有两到三个方法来解决这个问题：
1.将Word文件Ole到写字板里，然后保存一下就可以了。
2.Word文件Ole到剪贴板中，仅Copy内容。

 

D

duckdo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #11

用WORD打开再SAVEAS *.txt
如果不想手动完成。
写程序用DELPHI的TWordApplication和TWordDocument对象来做。

 

D

djflying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #12

wsj1208,贡献一下你的方法嘛!

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #13

我想到的方法和：sandy suen, 一样，就是使用
使用OLEContain代开Word文档，然后 Select All
Copy To 剪贴板
Paste To一个文本文件
现在看来duckdo, 的方法最好，就是控制Word打开文件，然后SaveAs *.txt

注意：Wps和Word的兼容也是通过Ole实现的，我估计编程的方法不出这两个方案

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #14

转换Word文档 来自hubdog的宝典
procedure TImport_Form.ToolButton3Click(Sender: TObject);
Var
WordApp:Variant;
begin
if OpenDialog1.Execute then
Begin
Edit1.Text:=ExtractFileName(OpenDialog1.FileName);
StatusBar1.SimpleText:=OpenDialog1.FileName;
WordApp := CreateOleObject('Word.Basic');
If not VarIsEmpty(WordApp) then
Begin
WordApp.FileOpen(OpenDialog1.FileName);
WordApp.FileSaveAs(Name := 'c:/temp_bb.rtf', Format:=6);
WordApp.AppClose;
WordApp:=Unassigned;
WordEditor.Lines.LoadFromFile('c:/temp_bb.rtf');
End Else ShowMessage('Could not start MS Word');
End;
end;
Format:=6 表示 Word将按RTF格式保存文件
其他文件格式　
Format
-------- ------
0 Word　
1 文档模板　
2 文本　
3 文本加断行　
4 文本 (扩展字符集按IBM PC字符集保存)
5 文本 ＋断行(扩展字符集按IBM PC字符集保存)

6 RTF格式

 

W

wsj1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #15

感谢大家的回答，最近出差，没有上网。我的方法和g622基本一样。效果很好。

 

W

wsj1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #16

多人接受答案了。