Sub AllShapes()
'add a blue thin border and locks aspect ratio
Dim oSh As Shape
Dim oSl As InlineShape
 
  
   For Each oSl In ActiveDocument.InlineShapes
            oSl.LockAspectRatio = True
            oSl.Line.Weight = 2
            oSl.Line.Style = msoLineSingle
            oSl.Line.ForeColor.RGB = RGB(91, 155, 213)
         
      Next
      
 Call ConvertToShape
 Call TopBottomAlign
 
End Sub

Sub ConvertToShape()
Dim i As Integer, oShp As InlineShape

For i = ActiveDocument.InlineShapes.Count To 1 Step -1
    Set oShp = ActiveDocument.InlineShapes(i)
    oShp.Select

    With Selection
    
                If oShp.Type = wdSelectionInlineShape Then
            .InlineShapes(1).ConvertToShape
            
        End If
    
    End With
    Next i
End Sub

Sub TopBottomAlign()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
           .WrapFormat.Type = wdWrapTopBottom ' unqualified error occurs here
        Next
End Sub