取消word文本框组合vba

word中有好些文本框和图形，有些组合在一起，有些没有，如何把组合的文本框全部取消组合，求vba代码

Sub UnGroupShapes()
    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoGroup Then shp.Ungroup
    Next shp
End Sub

请在 Word 中打开“开发工具”，在“模块”中添加以上代码，然后运行它。该代码会对当前活动文档中的所有组合图形进行循环，并将它们取消组合。