求向WORD文档插入多图片的代码.

Tianya0513 · 发表于 2005-4-25 10:32

我自己产生了很多图片,会有一个编号对应一个页码,想将图片插入到WORD文档中去,要求做到图片位于每页的最左最顶.我自己写的代码在插入图片较少的时候,是正常的,但是图片如果比较多的时候,会错位.

哪位高手有相关的解决方案?

谢谢了!

[em10]

JWsrkqWK.rar (57.33 KB, 下载次数: 17)

[此贴子已经被作者于2005-4-27 9:32:56编辑过]

守柔 · 发表于 2005-4-26 05:49

以下是引用Tianya0513在2005-4-25 10:32:00的发言：
我自己产生了很多图片,会有一个编号对应一个页码,想将图片插入到WORD文档中去,要求做到图片位于每页的最左最顶.我自己写的代码在插入图片较少的时候,是正常的,但是图片如果比较多的时候,会错位.

哪位高手有相关的解决方案?

谢谢了!
[em10]

一个页码一张图片？图片位于左上角？页码与图片之间是什么关系？空白页还是有文本的页？如何设置图片的版式？

Tianya0513 · 发表于 2005-4-27 09:33

我上传了图片!守版主,请看看!

守柔 · 发表于 2005-4-27 10:45

试试这个代码：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-27 10:46:34 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyRange As Range, MyShape As Shape, PagesCount As Integer, i As Integer With ActiveDocument PagesCount = .Content.Information(wdNumberOfPagesInDocument) For i = 1 To PagesCount Set MyRange = .Range(0, 0).GoTo(wdGoToPage, wdGoToPrevious, , i) Set MyShape = .Shapes.AddPicture("C:\Documents and Settings\My Documents\My Pictures\8.bmp", , , 0, 0, , , MyRange) With MyShape .RelativeVerticalPosition = wdRelativeVerticalPositionPage .RelativeHorizontalPosition = wdRelativeVerticalPositionPage .Left = 0 .Top = 0 .WrapFormat.Side = wdWrapBoth .WrapFormat.Type = 3 .ZOrder 5 End With Next End With End Sub '----------------------图片路径的获得你自己看吧。

Tianya0513 · 发表于 2005-4-27 13:07

我试试,谢谢守版主!

		自动登录	找回密码
密码			免费注册