各位大佬，这样的水印文件怎么删掉了？如果页数有30-60页

chen8587216

第一次碰到这个样式的水印文件，在设计中删除水印没有反应，这个怎么快速删掉水印，而不删掉文字了？？？

413191246se

楼主，并不是水印！只是图形。请试用下面的宏：（粘贴到新建空白文档中，全选，剪切，再粘贴到 VBE 中）

1. Sub DeleteShapes()
   
2. '删除图形
   
3. '红色文字提取自图文框/六个星号"*"后面文字提取自文本框/表格环绕将变成图文框
   
4. 
   
5.     Dim r As Range, t As Table, iShape As InlineShape, Frm As Frame, n&, m&
   
6. 
   
7.     With ActiveDocument
   
8.         If .Shapes.Count <> 0 Then .Content.InsertParagraphBefore: m = 1
   
9. 
   
10.         Set r = .Paragraphs(1).Range
    
11. 
    
12.         '表格取消文字环绕
    
13.         For Each t In .Tables
    
14.             t.Range.Rows.WrapAroundText = False
    
15.         Next
    
16. 
    
17.         '删除图片(InlineShape)
    
18.         For Each iShape In .InlineShapes
    
19.             iShape.Delete
    
20.         Next
    
21. 
    
22.         '删除图形(Shape)/文本框
    
23.         For n = .Shapes.Count To 1 Step -1
    
24.             With .Shapes(n)
    
25.                 If .TextFrame.HasText <> 0 Then r.InsertBefore Text:=.TextFrame.TextRange.Text
    
26.                 .Delete
    
27.             End With
    
28.         Next
    
29. 
    
30.         '删除图文框(Frame)
    
31.         For Each Frm In .Frames
    
32.             With Frm
    
33.                 .Select
    
34.                 .Delete
    
35.                 With Selection
    
36.                     .ClearFormatting
    
37.                     .Font.Color = wdColorRed
    
38.                 End With
    
39.             End With
    
40.         Next
    
41. 
    
42.         If m = 1 Then .Content.InsertAfter Text:=vbCr & "******" & vbCr & r.Text: r.Delete
    
43.     End With
    
44. 
    
45.     Selection.HomeKey 6
    
46.    
    
47. End Sub

复制代码

vbee

快速删掉水印

chen8587216

413191246se 发表于 2023-7-21 19:17
楼主，并不是水印！只是图形。请试用下面的宏：（粘贴到新建空白文档中，全选，剪切，再粘贴到 VBE 中）

你好，大佬，这个代码大部分都可以的，就是这个文件的页码有一点问题。。。。

batmanbbs

chen8587216 发表于 2023-7-23 16:44
你好，大佬，这个代码大部分都可以的，就是这个文件的页码有一点问题。。。。

这些都是艺术字（WORDART）

chen8587216

vbee 发表于 2023-7-21 19:19
快速删掉水印

好的，谢谢大佬，我晚一点试一下这个VBA.谢谢了。

chen8587216

batmanbbs 发表于 2023-7-23 18:39
这些都是艺术字（WORDART）

好的，谢谢了，我晚一点试一下。。。有什么情况再请教。。。。。