word背景色如何去除而保留原文颜色

netcrystal

请见附件，背景色是黑色的，如何去除黑色的背景色，还要保留里面代码的高亮彩色？谢谢！

413191246se

页面布局（选项卡）——页面边框——底纹——填充——无颜色——请自行设置文字颜色为：自动/或红色。

ming0018

多研究一下，或者百度，这个问题应该不难。

413191246se

ming 老师 多日未见呀！有空多来看看，多多指导。

netcrystal

@413191246se ， ming老师，谢谢！我百度了很久未解决才求助的，谢谢了！刚才试了下方法解决了背景色去掉，但是字体颜色选择自动会全部变成黑色字体，代码中有部分是白色的字体，背景色取消后白色字体看得很不清楚，能选择性的只把白色字体都换成黑色字体吗？多谢！

413191246se

楼主，未去除背景色之前，颜色是白色的；但去除背景色之后，它不是白色的，而是灰色的。
请选择其中一个字符，然后，右键——样式——选择格式相似的文本，这样就选定了所有这个颜色的字符，设置为自动色或红色均可。

netcrystal

413191246se 发表于 2019-10-10 12:53
楼主，未去除背景色之前，颜色是白色的；但去除背景色之后，它不是白色的，而是灰色的。
请选择其中一个字 ...

谢谢，这个方法不错，但是有个别同样颜色的字符没有被识别。

相见是缘8

你好！
如你是单要去底色，而保留代码的颜色，可全选文档后→点文档上面的：“格式”→“边框与底纹”→“底纹”→点选“无填充颜色”→“应用于”→点选“段落”→“确定”，就OK了。

相见是缘8

多回了一个，删…

413191246se

楼主，既然上面手动方法不行，那么还是试试 VBA 宏代码吧！（如果不会用宏，则请百度之！）

1. Sub aaab设置颜色()
   
2.     Dim i&, j$, k$
   
3.     If Selection.Type = wdSelectionIP Then MsgBox "请选择一个希望变色的字符！", 0 + 16: End
   
4.     j = MsgBox("<是>：蓝色    <否>：红色    <取消>：粉红", 3 + 48, "请选择颜色！")
   
5.     If j = vbYes Then
   
6.         k = wdColorBlue
   
7.     ElseIf j = vbNo Then
   
8.         k = wdColorRed
   
9.     Else
   
10.         k = wdColorPink
    
11.     End If
    
12.     i = Selection.Font.Color
    
13.     With ActiveDocument.Content.Find
    
14.         .ClearFormatting
    
15.         .Font.Color = i
    
16.         With .Replacement
    
17.             .ClearFormatting
    
18.             .Font.Color = k
    
19.         End With
    
20.         .Execute findtext:="", replacewith:="", Format:=True, Replace:=wdReplaceAll
    
21.     End With
    
22. End Sub

复制代码