用VBA同时选中多个矢量图形

Sub 宏2()
Dim i As Shape, j As String, j1 As String
For Each i In ActiveDocument.Shapes
    j = j & Chr(34) & i.Name & Chr(34) & ","
    j1 = Mid(j, 2, Len(j) - 3)
   
    ActiveDocument.Shapes.Range(Array(j1)).Select
Next i
End Sub
以上代码出错，不知什么原因。求助！！

已解决.....................

直接这样：
ActiveDocument.Shapes.SelectAll