如何删除pdf文档转换word后的水印

vovozhou

如何删除批量文本中的“国网**省电力有限公司”，真是其中的几页，正式文本有1千多页

ming0018

1. Sub 删除艺术字体()
   
2.     Dim doc As Document: Set doc = ActiveDocument
   
3.     For i = doc.Shapes.Count To 1 Step -1
   
4.         If doc.Shapes(i).Type = msoTextEffect Then doc.Shapes(i).Delete
   
5.     Next i
   
6. End Sub

复制代码

wdpfox

学习了，谢谢分享！

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！