请问高手一个操作word的问题？高分重酬(100分)

D

dssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-19

• #1

我现在用D7控制word的宏对Word进行操作。
目前都可以实现想到的功能。但现在有一两个功能实现不了，望高手帮忙
1、我想在word过页时加一张图片过去，要怎样判断什么时候是word过页了呢？
2、怎样判断文档总共有多少页？
3、在一个单元格里回车一直到word过页时他会延续单元。我想让他不再延续，是重建一个单元格，要怎样操作？（这个好像是word操作问题。我想请问用宏用实现吗？）

这些问题都比较迫切，请高手帮忙　。100分送上。不够再加。谢谢

 

D

dssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-19

• #2

顶

 

I

ivy1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-19

• #3

路过学习 帮你顶

 

D

dssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-19

• #4

再顶

 

D

dssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-19

• #5

somebody help me

 

F

FlyDayDream

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-19

• #6

对我来说有点难，但到vba哪里不算什么，但是在delphi7中实现也有点复杂。
不如先要把执行的工作录下下，然后看代码，然后在delphi中....

 

D

dssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-20

• #7

to FlyDayDream
我就是这么用的，但怎样把位置录下来是一个问题。呵呵

继续请教

 

D

dssj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-20

• #8

顶

 

M

myid0602

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-23

• #9

1.操作word时，随时用
　currentpage:= wordapp.Selection.Information[wdActiveEndPageNumber];
获取当前页码，当其值增１时，word过页了。
2.用
pages:=WordApp.activedocument.BuiltInDocumentProperties[wdPropertyPages].Value;
获得文档总页数。
3.利用1判断是否过页，若过页则执行
WordApp.activedocument.undo;
用wordapp.ActiveDocument.tables(1).rows.add插入一行.