请教word问题(100分)

怎样怎delphi中把word文档另存为*.txt(代换行符的村文本文件)？
多谢
或者能直接读取word中的复选框是否选中。

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1443806

procedure TForm1.Button1Click(Sender: TObject);
var
ItemIndex,FileName, Format, SaveChanges: OleVariant;
begin
ItemIndex := 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
Format := wdFormatText;
FileName := 'temp.txt';
WordDocument1.SaveAs(FileName, Format);
SaveChanges := wdDoNotSaveChanges;
WordApplication1.Quit(SaveChanges);
WordApplication1.Disconnect;
end;

存成代换行符的存文本文件？？？
能处理吗？

Format := wdFormatText;
还有什么样的Format可以插入换行符的

读每一段（行）：
以下不会显示 word 窗口的。
procedure TForm1.Button2Click(Sender: TObject);
var
wordapp,doclevariant;
i:integer;
begin
wordapp:=createoleobject('Word.application');
try
doc:=wordapp.Documents.Open(FileName:='c:/my documents/网络通信.doc');
Memo1.clear;
for i:=1 to doc.Paragraphs.count do
memo1.lines.add(doc.Paragraphs.item(i).range.text);
memo1.Lines.SaveToFile('d:/d.txt');
finally
wordapp.quit;
end;