请那位想将word转换成bmp的老兄进来(0分)

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #1

你上个帖子中，我的方法是将整个一个word转换成bmp,你说想要分页的，
下面是解决办法：

procedure TForm1.Button1Click(Sender: TObject);
var
what,which,count,name : olevariant;
begin
what := wdGoToPage;
which := wdGoToNext;
count := 0;
name := '10';
Wordapplication.Selection.GoTo_(what,which,count,name);//转到第10页
Wordapplication.Selection.SelectCurrentIndent;//选择此页
Wordapplication.Selection.Copy;//复制
// 其他操作和上一个帖子方法一样了
end;
如果超过页数范围，那么得到的是 第2页

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #2

看到了回个贴，我好结贴

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #3

var
rg : Range;
begin
rg := Wordapplication.Selection.GoTo_(what,which,count,name);
end;
rg.start 每次都不同，如果出现一样的，那就是超出了页的范围
就不用再转化了

 

Y

yxjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #4

原贴在哪里？

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #5

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

 

B

beautychina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-07

• #6

多谢了

 

B

beautychina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-07

• #7

我有一个问题，我在用上述方法的时候，如果文档不大，例如没有图片，只有文本时还好；如果有图片，则系统说内存不够，我用的512M存，而且存的bmp文件也很大，文档格式也有变样，转换时系统较慢。我决定啃啃c++,做个虚拟打印机驱动，利用虚拟打印机技术来转换文档为图片，如果成功了，我共享给大家。手头到有些源代码，可惜是半路起家搞从c++，如果在座的各位有兴趣的或技术的，可以和我联系。我的mail：jxzh@163.com.
再次感谢yanyandt2兄的热心帮助。

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #8

接受答案了.