vba批量删除水印
vba批量删除⽔印
解决办法：vba代码批量删除。
史上最贱小游戏2攻略
原因：今天辅导员我帮他把pdf转成word，但是输出后的word⾥有⼤量的⽔印。
以前学习过的：去除⽔印⽬前⽐较好的办法是在photoshop⾥抠出⽔印，新建图层取反⾊，图层模式改为差值。然后就可以⼤⾯积复制去掉⽔印。Vundo （有的时候还是不彻底，但是对于⼤量⽔印却⼗分⽅便，如果⽤修补或者印章慢慢修是最完美的。）
思路：开⼼地是转换后的word⾥⽔印都变成了艺术字和⽂本分开了。Vundo 由于⼯程不⼤，本来想⼀个⼀个删除的。但是很多艺术字与表格参杂在了⼀起，很难选定。
电气工程及其自动化就业前景
我想到了⽤查功能批量搜索特殊格式（图⽚）^p。可惜没有效果。
u盘怎么去写保护在⽹上搜索了⼀下想到⽤vba删除，Vundo 复习了⼀下vba的知识。
⽅法：word视图-宏-新建
Sub 批量删除艺术字()
Dim a As Shape
For Each a In ActiveDocument.Shapes
Select Case a.Type
Case msoTextEffect
排骨的家常做法
a.Delete
End Select
Next
End Sub
for函数没什么说的查所有的shape元素，然后⽤到了select case函数（select case第⼀⾏要有范围的，第⼆⾏case才是选定）Vundo ，选取了艺术字效果，然后删除。
评价语缺点：⼀次不⼀定能删除全部的，Vundo 多运⾏⼏次就好了。
备注：参考了很多⽹上的资料，尤其是vba的代码是的⽹上修改的，Vundo 另外各个函数⽹上有很详细的介绍。
>降准什么意思

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。