Как задать диапазон Shapes. Range(Array("Text box 1", "Text box 2", "Text box 3", "Text box 4"."Text box 10").Select

Dim txt As Shape
Set txt = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 50, 1, 1)
MsgBox txt.Name

Private Sub Test()
    Dim sh As Word.Shape
    For Each sh In ActiveDocument.Shapes
        If sh.Type = msoTextBox Then
           sh.Line.ForeColor.RGB = vbRed
           sh.TextFrame.TextRange.Font.Name = "Arial"
        End If
    Next
End Sub

Dim s As Word.Shapes, i&
Set s = ActiveDocument.Shapes
For i = s.Count To IIf(s.Count < 11, 1, s.Count - 10) Step -1
    MsgBox s(i).Name
Next

Dim s As Word.Shapes, i&, c&
Set s = ActiveDocument.Shapes
 
For i = s.Count To 1 Step -1
    If s(i).Type = msoTextBox Then
       MsgBox s(i).Name
       c = c + 1: If c = 10 Then Exit For
    End If
Next

Dim a(), i&
Dim s As Word.Shapes, sh As Word.Shape
Set s = ActiveDocument.Shapes: ReDim a(1 To s.Count)
 
For Each sh In s
    Debug.Print sh.AutoShapeType, sh.Name 'CTRL+G
    Select Case sh.AutoShapeType
        Case 1, -2: i = i + 1: a(i) = sh.Name
    End Select
Next
 
If i Then
   ReDim Preserve a(1 To i)
   Set sh = s.Range(a).Group 'Можно просто s.Range(a).Group
End If

Set sh = s.Range(a).Group 'Можно просто s.Range(a).Group

 '(1)  Grouping  Text  Box 
ActiveDocument.Shapes.Range(Array("Text  Box  5426",  "Text  Box  5428",  _ "Text  Box  5433")).Select
 Selection.ShapeRange.Group.Select
 '  (2)  Grouping  Line 
ActiveDocument.Shapes.Range(Array("Line  5230",  "Line  5229",  "Line  5228")). _ Select
 Selection.ShapeRange.Group.Select
 '  (3)  Grouping  Oval 
ActiveDocument.Shapes.Range(Array("Oval 5395",  "Oval  5393",  "Oval  5408")).  _ Select
 Selection.ShapeRange.Group.Select 
'Grouping  Group 
ActiveDocument.Shapes.Range(Array("Group  5868", "Group  5869",  "Group  5870"  _ )).Select
 Selection.ShapeRange.Group.Select

Dim a(), i&, page&: page = 1
Dim s As Word.Shapes, sh As Word.Shape
Set s = ActiveDocument.Shapes: ReDim a(1 To s.Count)
 
For Each sh In s
    Select Case sh.AutoShapeType
        Case 1, -2
        If sh.Anchor.Information(3) = page Then
           i = i + 1: a(i) = sh.Name
        End If
    End Select
Next
 
If i Then
   ReDim Preserve a(1 To i)
   Set sh = s.Range(a).Group 'Можно просто s.Range(a).Group
End If