How select some objects from specific page?   

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.

date: Thu, 14 Aug 2008 07:05:49 -0700 (PDT)   author:   avkokin

RE: How select some objects from specific page?   

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" wrote:

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

date: Thu, 14 Aug 2008 07:27:02 -0700   author:   StevenM stevencraigmiller(at)comcast(dot)net

Re: How select some objects from specific page?   

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

date: Thu, 14 Aug 2008 07:31:58 -0700 (PDT)   author:   avkokin

Re: How select some objects from specific page?   

Steven, Thank you very much!

date: Thu, 14 Aug 2008 07:42:53 -0700 (PDT)   author:   avkokin