Work VBA - Do Something on all TextBox

Word VBA, Do something on all TexBox

  

Dim oShp As Word.Shape
Dim i As Long
   
x = ActiveDocument.Shapes.Count
For i = 1 To x
    Set oShp = ActiveDocument.Shapes(i)
    If oShp.Type = msoTextBox Then
        oShp.Select
        ' Do Somethinng
       
    End If
Next i