如何选中指定页中的某个图片?VBA

xpzwp

一篇文档有若干页,每页有若干个图片,数量、位置不一定一样，如何用VBA选中指定页中的某个图片?[em27]

xpzwp

谢谢了!不好意思再问一下: 每页中的几个图片怎样区分哪个是InlineShapes(1),哪个是InlineShapes(2) 是以在页面上出现的先后次序吗?

惊叹不已

不是的，是以图片在页面中的段落的先后位置决定的，比如第一段有图片1，第二段有图片2、图片3，那么图片1就是Activedocument.InlineShape(1)，如果图片2在图片3前面，那么图片2就是InlineShape(2)，反之图片3就是InlineShape(2)。

惊叹不已

下例示范了如何选中第2页的第1个图片并自制至剪贴板. r1 = Selection.GoTo(wdGoToPage, wdGoToAbsolute, 2).Start r2 = Selection.GoTo(wdGoToPage, wdGoToAbsolute, 3).Start ActiveDocument.Range(r1, r2).Select Selection.InlineShapes(1).Select Selection.Copy

[此贴子已经被惊叹不已于2002-4-1 12:09:58编辑过]

fireicefan

惊叹不已 发表于 2002-4-1 12:09
下例示范了如何选中第2页的第1个图片并自制至剪贴板.

r1 = Selection.GoTo(wdGoToPage, wdGoToAbsolute, ...

恰好需要用到。
但有一个疑问，结束语为什么不能用第二页end(我试过不行)，而需要用第三页start呢？
如果恰好碰上末尾页的话就会执行错误。

可以有更直接选择指定页的方式吗？