How select some objects from specific page?

A

avkokin

Hello.
I need to select some shapes from specific pages. I know how to select
all shapes (ActiveDocument.Shapes.SelectAll), but how to this for
concrete pages?
Thank you very much.
 
S

StevenM

To: A. V. Kokin,

Sub ShapesAndPages()
Dim i As Long
With ActiveDocument
If .Shapes.count > 0 Then
For i = 1 To .Shapes.count
.Shapes(i).Select
MsgBox "Shape #" & i & " is on Page " &
Selection.Information(wdActiveEndPageNumber)
Next i
End If
End With
End Sub

Steven Craig Miller
 
Top