有关word操作的两个问题.(分割,转换) ( 积分: 100 )

如何用delphi来对word文档进行分割? 比较把一个文件分成几个小文件,当然不是乱分的,而是根据内容来分,大文件里的内容是有规则的,比如:
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)

分割就是要把标识之间的内容分成各个word文档.
不知道哪位有做过类似的,能否指点一二,谢谢.


第二个问题

后台转换 doc->rtf ,我用以下代码:
var
NewDoc:variant;
V: OleVariant;
FileNameTemp :String;
begin
if OpenDialog1.Execute then
begin
FileNameTemp := OpenDialog1.FileName;
V := CreateOleObject('Word.Application'); //建立自动化对象
NewDoc :=V.Documents.Open(OpenDialog1.FileName); //打开指定文件
NewDoc.SaveAs(FileName :='D:/2.rtf',FileFormat:=1); //把文件另存为D:/2.rtf
NewDoc.Close; //关闭Word文件
V.Quit; //释放自动化对象
RichTextBox.LoadFile('D:/2.rtf'); //读入临时文件D:/2.rtf
end;


但是 这一行 NewDoc.SaveAs(FileName :='D:/2.rtf',FileFormat:=1); //把文件另存为D:/2.rtf
我把 FileFormat 这个参数 改成其它数字 0-4 ,或者不要这个参数,结果却是两种情况,要么 2.rtf 是word 格式(没变) ,要么就是 文本格式(因为,图片不见了.) 都不是我所要的 rtf 格式(要保留图片).

所以,如何在后台把 .doc 转换成 .rtf 呢?请多多指教.

如何用delphi来对word文档进行分割? 比较把一个文件分成几个小文件,当然不是乱分的,而是根据内容来分,大文件里的内容是有规则的,比如:
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)
..... 内容
***(标识)

分割就是要把标识之间的内容分成各个word文档.
不知道哪位有做过类似的,能否指点一二,谢谢.


第二个问题

后台转换 doc->rtf ,我用以下代码:
var
NewDoc:variant;
V: OleVariant;
FileNameTemp :String;
begin
if OpenDialog1.Execute then
begin
FileNameTemp := OpenDialog1.FileName;
V := CreateOleObject('Word.Application'); //建立自动化对象
NewDoc :=V.Documents.Open(OpenDialog1.FileName); //打开指定文件
NewDoc.SaveAs(FileName :='D:/2.rtf',FileFormat:=1); //把文件另存为D:/2.rtf
NewDoc.Close; //关闭Word文件
V.Quit; //释放自动化对象
RichTextBox.LoadFile('D:/2.rtf'); //读入临时文件D:/2.rtf
end;


但是 这一行 NewDoc.SaveAs(FileName :='D:/2.rtf',FileFormat:=1); //把文件另存为D:/2.rtf
我把 FileFormat 这个参数 改成其它数字 0-4 ,或者不要这个参数,结果却是两种情况,要么 2.rtf 是word 格式(没变) ,要么就是 文本格式(因为,图片不见了.) 都不是我所要的 rtf 格式(要保留图片).

所以,如何在后台把 .doc 转换成 .rtf 呢?请多多指教.