2024年1月2日发(作者：)

如何批量删除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再次运行宏。即可删除所有文本框。