Как выделить все объекты Shapes на определенной странице

Борис интересуется:

Борис, вот пример макроса, выделяет все графические объекты shapes во всем документе:

Sub selectAllShapes()
   ActiveDocument.Shapes.SelectAll
End Sub

Если надо выделить только на определенной странице, то можно использовать такой код:

Sub selectAllShapesFromPartPage()
'Выделение всех графических объектов на определенной странице
Dim MyRange As Range
Set MyRange = ActiveDocument.Range(0, 0)  'начало диапазона
Set MyRange = MyRange.GoTo(What:=wdGoToPage, Name:="3")  'задаем номер страницы
Set MyRange = MyRange.GoTo(What:=wdGoToBookmark, Name:="\page")   'переходим к заданной странице
   MyRange.ShapeRange.Select  'выделяем все spahes на данной странице
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса