如何将图片插入到word文档的任意位置？(50分)

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #1

我的程序代码是：
MSWord.documents.item(1).InlineShapes.AddPicture('C:/0003.jpg',False, True );
但是每次运行后图片总是在文档的顶部，我想让图片可以在任何位置放置，请问盖如何实现，多谢赐教！

 

X

xuepiaofei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #2

先用move方法（可能是在Selection中)指定你所要插入的行，
在用剪贴板把图片粘贴在这个地方就行了！

 

D

dongy_143

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #3

把图片拖到任意一个位置，运行
连续两次，也许可以解决问题
我曾遇到过[8D]

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #4

dongy_143,
我试了您的方法，但是不管用还是在顶端，怎样通过代码实现位移？帮帮忙吧！[]

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #5

xuepiaofei
您说的方法具体怎么操作？help me please！[?]

 

X

xuepiaofei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #6

现将图片拷贝到剪贴板上，…….CopyToClipboard;
然后再把光标移动到你所要插入的行上，MSWord.Sentences.move……
最后从剪贴板粘出来就行了：WordDocument.Sentences.Paste;
以上只是一个思路，
由于我很久以前做过，现在只记得这些，
具体你查查资料，调试一下就通了。

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #7

xuepiaofei:
谢谢，这个问题我已经解决了。不过，我向再请教一下，怎样通过编程将excel表插入到word文档中，拜托了，分不够可以再加。

 

S

szcgy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #8

如果已用word模板的方式，可采用插入到书签的位置。

 

Z

zhang_yz6666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #9

up

 

Z

zz99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #10

up

 

S

starpc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #11

你可OLE的方法先从excel中读出，再写入word并控制格式

 

C

chji

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #12

var FPicture:OleVariant;
插入图片
FPicture:=MSWord.documents.item(1).InlineShapes.AddPicture('C:/0003.jpg',False, True );
FPicture.ConvertToShape.select; //转成可移动模式...
documents.Application.Selection.ShapeRange.width:=大小;
documents.Application.Selection.ShapeRange.height:=高度;
documents.Application.Selection.ShapeRange.IncrementLeft(左);
documents.Application.Selection.ShapeRange.IncrementTop(右);

 

M

mrb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #13

gz

 

Z

zmoliver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #14

ppppppppppp
ooooo
sssss
tttttttt!!!!!

 

X

xu1890

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #15

chji,我怎么不行呀？不能到任意位置，请执教