admin 管理员组文章数量: 887034
2023年12月22日发(作者：flex布局默认换行吗)
如何批量删除word文本框而保留其中的内容
在word2007以上版本中可完美运行。
1、 在Word中按“Alt+F11”，出现以下界面：
2、点击“运行”下拉菜单，点击“运行宏”
3、在宏名称里输入： 删除全部文本框。点击“创建”。
4、在“sub 删除全部文本框()”和“End Sub”之间输入（不要漏行，包括标点符号）
'
' 删除全部文本框，保留文字
'
Dim i As Shape
For Each i In
tToFrame
Next
Dim ii As Frame
For Each ii In
Next
' 取消所有框线
' ------------注：若文章当中存在有用的框线，请删除下边这几句---------
tory
With aphFormat
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
End With
' ------------注：若文章当中存在有用的框线，请不要执行上边这几句---------
5、点关闭按钮。
6、再次点击“运行”菜单，点击“运行宏”，出现以下窗口，点击运行“删除全部文本框”
7、如果提示错误，则删除代码tToFrame再次运行宏。即可删除所有文本框。
版权声明：本文标题：批量删除word文本框(图文说明) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1703233592h443344.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论