请问：这样的背景色怎么消除？

weiyingde

在网上复制粘贴一文档，想保持原字符格式，又不想保留它的背景色，该怎么消除。
文档如下：

413191246se

* 魏老师：最简单的办法就是，全选+清除格式。如果想保留格式，请试试下面的宏：（实际上还有一些 Shapes 未删除）

1. Sub 清除格式()
   
2. '样式(边框/底纹/突出显示/背景)
   
3.     With Selection
   
4.         .WholeStory
   
5. '        .ClearFormatting
   
6.         .Font.ColorIndex = wdAuto
   
7.         .Font.Borders(1).LineStyle = wdLineStyleNone
   
8.         .Font.Shading.Texture = wdTextureNone
   
9.         .Range.HighlightColorIndex = wdNoHighlight
   
10.         ActiveDocument.Background.Fill.Visible = msoFalse
    
11. '底纹边框
    
12.         With .ParagraphFormat
    
13.             .Shading.Texture = wdTextureNone
    
14.             .Shading.BackgroundPatternColor = wdColorAutomatic
    
15.             .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
16.             .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
17.             .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    
18.             .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
19.         End With
    
20. '页面边框
    
21.         With .Sections(1)
    
22.             .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
23.             .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
24.             .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    
25.             .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
26.         End With
    
27.         .HomeKey 6
    
28.     End With
    
29. End Sub

复制代码

weiyingde

413191246se 发表于 2020-7-31 19:52
* 魏老师：最简单的办法就是，全选+清除格式。如果想保留格式，请试试下面的宏：（实际上还有一些 Shapes  ...

谢谢你，我试一下。

weiyingde

413191246se 发表于 2020-7-31 19:52
* 魏老师：最简单的办法就是，全选+清除格式。如果想保留格式，请试试下面的宏：（实际上还有一些 Shapes  ...

还有表格的底纹没有消除，加上以下代码就齐全了。
    For Each Tb In ActiveDocument.Tables
       With Tb.Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = wdColorAutomatic
       End With
    Next

413191246se

谢谢 魏老师！已经加入《清除格式》宏。