How select some objects from specific page?

[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.

 

[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

 

[avkokin]

Hello All.
I found required. Here: http://word.mvps.org/FAQs/MacrosVBA/SelectCurPage.htm
Thank's all. Sorry.

 

[avkokin]

Steven, Thank you very much!