怎样在word弹出菜单中增加一菜单?在线等待.我都等了这么几天了,还没人能回答吗? (300分)

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #1

问题1、我用下面的代码想在word文档的每一页里都插入一幅图片,但插入的图片都在第一页,如何解决？
这个问题在Linsb的帮助下已经解决,请大家看第二个问题.
问题2、我插入一幅图片后，怎样让鼠标右键点击图片后，在弹出的菜单里增加“保存图片”、“打印图片”等菜单并与相应的事件关联起来？
以上每个问题各150分，在线等待,解决了立马给分。

 

Z

zhuoyuesky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #2

用TWordDocument,TWordApplication不行吗？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #3

可以直接用word吗？
格式-->背景-->水印-->图片水印

 

常

常常

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #4

我想试一下

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #5

to zhuoyuesky：
"TWordDocument,TWordApplication"我都用了,一样的.
to 影 子:
不可以。
to 常常:
希望这300分你可以得到。

 

如

如云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #6

w.Browser.Next这一句似乎不对
我正在看word帮助

 

如

如云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #7

这是我查到的,是VB的语句

将所选内容向后移动两页。

Selection.GoTo What:=wdGoToPage, Which:=wdGoToPrevious, Count:=2
希望对你有用

 

X

Xelloss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #8

第1： Selection.MoveDown(wdParagraph, 1);

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #9

to 如云:
"w.Selection.GoTo(What:=wdGoToPage, Which:=wdGoToPrevious, Count:=I+1)",我用过,不行的.
to Xelloss:
我也试过,不行.

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #10

第一个问题，用Servers控件，我想可以解决（因我可控制页）。我给你试试。

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #11

to Xelloss:
还是不行呀.
to linsb:
希望你能试成功.

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #12

到现在为止,还没有人能够解决我的问题,
怎么没有人要这300分吗?

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #13

第一个问题，用Servers控件

wordapplication1.Selection.InlineShapes.AddPicture( 'E:/temp/b' + IntToStr(I) + '.bmp',EmptyParam, EmptyParam, EmptyParam);
wordapplication1.Browser.Next;

 

小

小黄鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #14

翻页没有用的，翻页后输入焦点仍然在第一页。
你可以使用MoveDown
Selection.MoveUp Unit:=wdLine, Count:=4

向下移动多少行

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #15

to linsb：
非常感谢你，你的解答有点接进，但不是我想要的，因为你用这种方法插入的图片是在每页正文的上面，而我想要的是在“每页”的上面，不是“正文”的上面，图片是放在页眉上的哦，但它不属于页眉。图片是可以随便在一页中拖动的，而用你的方法插入的图片只能在正文里拖动，是拖动不到页眉或者左边距旁的，你再试试。
to 小黄鱼：
你的方法我试过，是不行的。

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #16

我的网站上有利用Server页组件向Word插入图片的源码。
只要你告诉需要插入的段落就可以了。试试看。
网址是：http://jjb.swaysoft.com
你的第二个问题，如果Word本身实现不了，靠程序控制估计没戏。既然已经进word，这个问题也不是什么大不了的问题了，全交给Word得了。

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #17

具体位置：http://jjb.swaysoft.com 的“文档中心”。
另外，"下载中心"的“delphi笔记”中有有关Word控制的文字说明。

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #18

to 天与地:
看了你的网站,做得不错,也看了相关的文章,但还是不能解决我的问题.

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #19

页操作我没有试，但用我的程序起码可以在指定的段落插入图片，只要给出段落编号就可以了。

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-17

• #20

to 天与地:
你的程序是在"指定的段落插入图片",而我的是要在页上插入图片,浮在每一页上,你的代码是不可行的.