关于守版主的插入多个图片宏

Tianya0513

代码:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* 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

这段宏在文本的内容下是正常的,但是如果页面上有表格,就不正确了.特别的页开始是表格的文件,图片的位置不正确.

会是什么原因?如何解决?

QcdRsJWU.rar (3.99 KB, 下载次数: 43)

2005-5-16 15:22 上传

点击文件名下载附件
关于守版主的插入多个图片宏

[此贴子已经被作者于2005-5-16 15:18:51编辑过]

守柔

这个问题,不好解决,因为你不仅可能是页开始有表格,也可能表格充满整个一页,或者出现跨页的一现象.

变通一下:

取得主文档的所有页数,生成一个新的文档,在新的文档中,先插入图片,再将第i页的RNAGE对象复制到新文档中,如此循环,请楼主试一下,是否可行?

或者在取得主文档的所有页数后,在一个新文档中,插入分页符,定位到I页,将图片插入,复制主文档所有内容,删除分页符.

感觉还是有些问题,必须视实际文档情况而定,比如页眉页脚.

我需要时间,再考虑一下.

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-18 09:34:38 '仅测试于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) If MyRange.Information(wdWithInTable) Then MyRange.Tables(1).Rows.WrapAroundText = True 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 '---------------------- 这也不是一步到位的方法，我还是需要时间。（但基本可用）