admin 管理员组

文章数量: 1184232


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.roclinux.cn/p/1703233592a443344.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。