Как выделить все графические объекты в многостраничном документе?

Sub DeleteThisLine()
  Dim i As Long 'Счётчик
  'Габариты
  Dim nLineWidth As Single, nLineHeight As Single
  'Толщина линии
  Dim oLineThickness As Single
  'Фигура
  Dim curShp As Shape
  
  With Selection.ShapeRange(1)
    nLineWidth = .Width
    nLineHeight = .Height
    oLineThickness = .Line.Weight
  End With
  'Перебираем все рисунки, начиная с конца
  For i = ActiveDocument.Shapes.Count To 1 Step -1
    Set curShp = ActiveDocument.Shapes(i)
    With curShp
      'Если совпадает тип, габариты и толщина линии, то удаляем
      If .Type = msoLine And _
         .Width = nLineWidth And _
         .Height = nLineHeight And _
         .Line.Weight = oLineThickness Then
        .Delete
      End If
    End With
  Next i
  
End Sub