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

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