Sub Demo()
Dim oTB As Shape
With ActiveDocument
For Each oTB In .Shapes
With oTB
If .TextFrame.HasText = True Then
.TextFrame.TextRange.Cut
With .Anchor.Paragraphs(1).Range
.Collapse (wdCollapseEnd)
.Paste
End With
.Delete
End If
End With
Next
End With
End Sub