Vba 遍历Word中的页面并查找包含图像的页面

我想迭代word文档中的每一页，检查该页是否包含图像，并对该页执行一些操作（设置页边距并插入分隔符）

---

文档

具有表示所有形状的

形状

集合。每个形状都有一个

锚定

，使用该锚定，我们可以访问形状页面的

TopMargin

，以及其他属性：

Sub JiggleAllShapes()
    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes
        shp.Anchor.Paragraphs(1).Range.PageSetup.TopMargin = 0
    Next shp
End Sub

我们可以从

锚点

获取页码：

shp.Anchor.Information(wdActiveEndPageNumber)

有一个

页面

集合，但在IMO中没有那么有用：

Sub WhatAboutPages()
    Dim pge As Page

    For Each pge In ActiveDocument.ActiveWindow.Panes(1).Pages
        'Debug.Print pge.NothingUsefulHere
    Next pge
End Sub

---

使用这种方法，您必须深入研究

矩形

集合，并使用

矩形类型

尝试确定当前的

矩形

是否是图像。

A

文档

有一个代表所有形状的

形状

集合。每个形状都有一个

锚定

，使用该锚定，我们可以访问形状页面的

TopMargin

，以及其他属性：

Sub JiggleAllShapes()
    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes
        shp.Anchor.Paragraphs(1).Range.PageSetup.TopMargin = 0
    Next shp
End Sub

我们可以从

锚点

获取页码：

shp.Anchor.Information(wdActiveEndPageNumber)

有一个

页面

集合，但在IMO中没有那么有用：

Sub WhatAboutPages()
    Dim pge As Page

    For Each pge In ActiveDocument.ActiveWindow.Panes(1).Pages
        'Debug.Print pge.NothingUsefulHere
    Next pge
End Sub

---

使用这种方法，您必须深入研究

矩形

集合，并使用

矩形类型

尝试确定当前的

矩形

是否是图像。

word文档中有多种图像类型-一种文本嵌入（

InlineShapes

），另一种浮动（

Shapes

）。您的文档中有哪一个？我的文档中的大多数图像都是（形状）。word文档中的图像有多种类型-一种是嵌入的文本（

InlineShapes

），另一种是浮动的（

Shapes

）。您的文档中有哪一个？我文档中的大多数图像都是（形状）。+1用于回答所问问题和所需问题。页面迭代非常适合我。感谢+1回答所提问题和所需问题。页面迭代非常适合我。谢谢