时间:2021-12-25 21:00作者:admin来源:未知人气:2327我要评论(0)
背景
遇到一个文档是用艺术字打的水印,本来想看怎么能够批量选中艺术字对象,再统一删除,无奈并没找到对应的方法,最后成功通过宏语言,使用VBA代码实现删除艺术字的目的。
方法
首先选择并创建宏对象:
之后在代码框里粘贴删除艺术字的函数内容:
完整代码如下,需要注意的是:此代码适用于Word2016版,如果是2019版,要把判断艺术字的表达式改一下,即Type赋值语句改为:sh.Type=msoTextBox,至于其他版本的word可以分别试试这两个语句。
Sub 删除艺术字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextEffect Then
sh.Delete
End If
Next
End Sub
最后运行代码,如果包含艺术字的页数比较多的话,可能要多运行几次,才能完全删除所有内容:
相关阅读 word文档去除密码的方法常见办公中word文字处理的5个技巧Word自动生成字帖,无需插件,快速搞定Word实用小技巧,学会了让你成为高手中的高手!如何1分钟批量新建100个word文档?这个办公技巧太强大了!如何利用Word自动编号功能1分钟批量制作100张荣誉证书!Word封面的下划线居然还有这种操作?随意添加内容还能自动对齐!职场人员必会的5个Word技巧,5小时的工作量1小时完成!如何快速无损提取word中的图片,不限量!如何给Word表格跨页显示相同表头,重复标题行
热门文章 word表格外框线如何设置为1.5磅双实线word排版图片总是乱跑怎么办Word 合并文档如何保持格式不变word 拉丁文数字1到10的对照表以及电脑上怎么打出来
最新文章
word文档去除密码的方法常见办公中word文字处理的5个技巧
Word自动生成字帖,无需插件,快速搞定Word实用小技巧,学会了让你成为高手中的高手!如何1分钟批量新建100个word文档?这个办公技巧太强大了!如何利用Word自动编号功能1分钟批量制作100张荣誉证书!
人气排行 word表格外框线如何设置为1.5磅双实线word排版图片总是乱跑怎么办Word 合并文档如何保持格式不变word 拉丁文数字1到10的对照表以及电脑上怎么打出来word 目录对不齐怎么办,如何解决word 明明是单倍行距,间距却很大平板可以做word文档吗word打字时会消掉后面的字该怎么办?
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>