高分相赠！怎样将 word 文档转化成 tif格式 的文件，很急！！(200分)

怎样将 word 文档转化成 tif格式 的文件，谁能解决，或能提供一点思路，都愿以高分相赠！！

通过ole打开word---通过Canvas抓图到bmp---转成tif

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1282614 word转bmp请参考此贴

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1365266 bmp转tif看这帖

用word的saveas方法，具体看word basic帮助

页眉和页脚的内容要不要转？

用抓图的方法不可行，因为只能抓当前画面。
页眉页脚的内容转不转都无所谓。

先研究vba吧，再转化到D

VBA好东西啊~
看这段程序：

procedure TForm1.Button1Click(Sender: TObject);
Var
wd:variant;
i: integer;
w: longint;

begin
wd:=CreateOLEObject( 'word.Application' );
try

for i:=1 to wd.fileconverters.count do begin
w:=0;

if (wd.FileConverters.item(i).cansave) and
(pos('HTML', wd.fileconverters.item(i).FORMATNAME)>0) then BEGIN
w:=wd.FileConverters.item(i).SaveFormat;
SHOWMESSAGE(INTTOSTR(W));
end;
finally
WD.QUIT;
end;
end;

W即是SAVEFORMAT的值。 在这里会显示出11。（至少在我的机器上是11）。
把11转化成八进制，即13， 中间添个0， 就是103了。
我想103就是这么来的。

不信的话，你用下面的程序把所有的SAVEFORMAT全部列出来。然后
算一下, 再套到WORD宏里面就知道了.

至于把11变成103你就自己再想法子, 慢慢搞吧.

procedure TForm1.Button1Click(Sender: TObject);
Var
wd:variant;
i: integer;
w,R: longint;

begin
wd:=CreateOLEObject( 'word.Application' );
try
// wd.documents.open('d:/my documents/report.doc');
for i:=1 to wd.fileconverters.count do begin
w:=0;
r:=0;

listbox1.items.add(wd.FileConverters.item(i).FormatName);

if wd.FileConverters.item(i).cansave then
w:=wd.FileConverters.item(i).SaveFormat;
if wd.FileConverters.item(i).canOPEN then
r:=wd.FileConverters.item(i).OpenFormat;

ListBox1.items.add(inttostr(w)+' '+inttostr(r));

end;
finally
WD.QUIT;
end;
end;
这是DOC另存为HTML的例子。。
请自己改改。

你是用来输出？问我就好了
虽然没有完美解决方案 但word发排我也不是一两百次了
嘿嘿～ 怎么联系？

转有TXT文件，再将文件名改为TIF。

其实我要用 C++ Builder 来写，这个论坛主要是 Delphi,我以前做过 Delphi。
我的 QQ： 11274034

我可以转成bmp格式。

支持doc,rtf,txt ,但是doc文挡图象部分太大无法转换，doc文挡中的表格也无法转换。

to:zzutrain
过年回家了，好久没来了，不好意思！
你说你能将它转化成BMP,能否相告，有代码更好！