word2007如何批量删除文本框
2016-04-05 16:04
537 查看
参考:http://bbs.gxsd.com.cn/forum.php?mod=viewthread&tid=310040
近期需要将pdf转word并编辑使用,在使用工具转过之后,发现转出来的word全是一个个的小框,于是参考上述链接删除文本框。
在word2007中alt+F11。
赋值如下代码,保存,回到word并alt+F8,运行。
然后会报错:
不知为何,搜索未果,可能是word2003和word2007不一样吧。
但是虽然没有学过vb,但是这样的代码看一下还是能看出其大致作用的。
调试之后,做出如下处理:
Sub 删除全部文本框()
'
' 删除全部文本框,保留文字
' Dim i As Shape
' For Each i In ActiveDocument.Shapes
' i.ConvertToFrame
' Next
Dim ii As Frame
For Each ii In ActiveDocument.Frames
ii.Delete
Next
' 取消所有框线
' ------------注:若文章当中存在有用的框线,请删除下边这几句---------
Selection.WholeStory
With Selection.ParagraphFormat
.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格式混乱,需重新整理格式,这里给出一个去除所有分节符的操作:
ctrl+F,在替换中做出如下操作:
其中^b表示的就是分节符,点击全部替换将去除所有分节符。
近期需要将pdf转word并编辑使用,在使用工具转过之后,发现转出来的word全是一个个的小框,于是参考上述链接删除文本框。
在word2007中alt+F11。
赋值如下代码,保存,回到word并alt+F8,运行。
然后会报错:
不知为何,搜索未果,可能是word2003和word2007不一样吧。
但是虽然没有学过vb,但是这样的代码看一下还是能看出其大致作用的。
调试之后,做出如下处理:
Sub 删除全部文本框()
'
' 删除全部文本框,保留文字
' Dim i As Shape
' For Each i In ActiveDocument.Shapes
' i.ConvertToFrame
' Next
Dim ii As Frame
For Each ii In ActiveDocument.Frames
ii.Delete
Next
' 取消所有框线
' ------------注:若文章当中存在有用的框线,请删除下边这几句---------
Selection.WholeStory
With Selection.ParagraphFormat
.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格式混乱,需重新整理格式,这里给出一个去除所有分节符的操作:
ctrl+F,在替换中做出如下操作:
其中^b表示的就是分节符,点击全部替换将去除所有分节符。
相关文章推荐
- jsp页面跳转传值(变量)
- SQL Server压缩日志及数据库文件大小
- 不用标准库实现memmove,借助一个缓冲区temp,即使src和dest所指的内存有重叠也能正确拷贝
- python中decorator的用法及原理(一)
- jquery treetable 实例
- 网络编程
- 基础语法学习
- 树莓派linux驱动学习之LED控制
- UIDynamic
- 走过的那些青春代码
- 走过的那些青春代码
- svn回复删除
- NFS文件共享配置
- Spring WebSocket简单入门测试Demo(网页及时聊天)
- 友盟第三方QQ登录和获取用户登录信息并设置用户头像
- EasyUI使用tree方法生成树形结构加载两次的问题
- [LeetCode]题解(python):136-Single Number
- #define private public
- java反射之方法反射的基本操作
- 【自定义标签开发】01-标签简介和开发第一个标签