如何获取图片在word的中的哪一页上？

小鸟向前飞

在word文档中有很多图形，分别在不同页中。
我想获取到这些图片分别在哪一页以及位置信息。
位置信息比较好取，shape中就可以取到，但是页信息怎么取呢？

请教了！

duquancai

1. Sub shishi()
   
2.    Dim x%, y%, i%, n%, m%
   
3.    Application.ScreenUpdating = False
   
4.    For i = 1 To ActiveDocument.ActiveWindow.ActivePane.Pages.Count
   
5.       With Selection.GoTo(1, 1, i).Bookmarks("\page").Range
   
6.          If .InlineShapes.Count + .ShapeRange.Count > 0 Then
   
7.             If .InlineShapes.Count >= 1 Then
   
8.                For x = 1 To .InlineShapes.Count
   
9.                   n = n + 1
   
10.                   MsgBox "第" & n & "张嵌入式图片在第" & i & "页"
    
11.                Next
    
12.             End If
    
13.             If .ShapeRange.Count >= 1 Then
    
14.                For y = 1 To .ShapeRange.Count
    
15.                   m = m + 1
    
16.                   MsgBox "第" & m & "张浮动式图片在第" & i & "页"
    
17.                Next
    
18.             End If
    
19.          End If
    
20.       End With
    
21.    Next
    
22.    Application.ScreenUpdating = True
    
23. End Sub

复制代码

小鸟向前飞

duquancai 发表于 2016-11-17 18:04

好用，多谢！

小鸟向前飞

duquancai 发表于 2016-11-17 18:04

Bookmarks("\page")中的\page是什么意思？VBA可以，但是用C++这么写就有问题了，这里不太明白

duquancai

小鸟向前飞 发表于 2016-11-18 14:25
Bookmarks("\page")中的\page是什么意思？VBA可以，但是用C++这么写就有问题了，这里不太明白

c++我不懂，对不起。不解释

小鸟向前飞

duquancai 发表于 2016-11-18 14:28
c++我不懂，对不起。不解释

那在这里这个\page的反斜杠是什么意思呢？