把WORD中的文本框批量转换为图文框

Sub test()
Dim obj As Shape
For Each obj In ActiveDocument.Shapes
    If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then
        obj.ConvertToFrame
    End If
Next
End Sub