如何自动获取word文档中所有shape对象的所在页码？我要完整的代码解答。谢谢！

[xiaoxiongdi]

内容如标题。

[fanmy_001]

帮定一下，我也有此问题啊。

[icansaymyabc]

Public Sub aaa()
Dim e
For Each e In ActiveDocument.Shapes
MsgBox "Shap: " & e.Name & " 在 第" & ffffiiii(e.id) & "页"
Next
End Sub


Public Sub bbb()
On Error GoTo NNNN
MsgBox "当前选中的Shap：'"& Selection.ShapeRange.Name &"'在第"& ffffiiii(Selection.ShapeRange.id) &"页"
Exit Sub
NNNN:
MsgBox "没有 Shap 被选中。"
End Sub

Private Function ffffiiii(id As Long) As Long
Dim e, r
For Each e In ActiveDocument.ActiveWindow.ActivePane.Pages
For Each r In e.Rectangles
If wdShapeRectangle = r.RectangleType Then
If id = r.Range.ShapeRange.id Then
ffffiiii = e.Breaks(1).PageIndex
End If
End If
Next
Next
End Function

[fanmy_001]

ok,明白了。

[xiaoxiongdi]

已经给了icansaymyabc(学习与进步) 50分

进一步发现另外一个问题：如何自动获取word文档中所有InlineShape对象(嵌入式图形)的所在页码？icansaymyabc(学习与进步)的代码不能捕捉InlineShape对象

InlineShape对象没有名称，找到了还得对其进行“编号”才行

仍然要完整的VBA代码解答，谢谢！

[xiaoxiongdi]

不好意思，搞错了！
给icansaymyabc(学习与进步)的那50分，到结贴时才能给出，望继续支持，谢谢！

[xiaoxiongdi]

icansaymyabc(学习与进步) 独得100分！

谢谢各位的关注！