如何批量删除word文本框而保留其中的内容

如何批量删除word文本框而保留其中的内容以下宏代码，自动清除Word当中的全部的文本框、图文框，在Word2010当中测试通过：Sub删除全部文本框()''删除全部文本框，保留文字'DimiAsShapeForEachiInActiveDocument.Shapesi.ConvertToFrameNextDimiiAsFrameForEachiiInActiveDocument.Framesii.DeleteNext'取消所有框线'------------注：若文章当中存在有用的框线，请删除下边这几句---------Selection.WholeStoryWithSelection.ParagraphFormat.Borders(wdBorderLeft).LineStyle=wdLineStyleNone.Borders(wdBorderRight).LineStyle=wdLineStyleNone.Borders(wdBorderTop).LineStyle=wdLineStyleNone.Borders(wdBorderBottom).LineStyle=wdLineStyleNone.Borders(wdBorderHorizontal).LineStyle=wdLineStyleNoneEndWith'------------注：若文章当中存在有用的框线，请不要执行上边这几句---------EndSub使用方法：在Word中按“Alt+F11”，将上边的那一大段宏复制/粘贴进去，保存即可。执行则按“Alt+F8”，选择“删除全部文本框”，点“运行”。如果提示错误，则删除代码i.ConvertToFrame再运行。