Word护眼色切换宏

老刘1号

背景色调整（护眼色）.bas

1. Attribute VB_Name = "文档背景色调整"
   
2. Sub 绿豆沙护眼背景()
   
3.     ActiveWindow.View.DisplayBackgrounds = True
   
4.     ActiveDocument.Background.Fill.ForeColor.RGB = RGB(199, 237, 204)
   
5.     ActiveDocument.Background.Fill.Visible = msoTrue
   
6.     ActiveDocument.Background.Fill.Solid
   
7. End Sub
   
8. Sub 黑色背景()
   
9.     ActiveWindow.View.DisplayBackgrounds = True
   
10.     ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
    
11.     ActiveDocument.Background.Fill.Visible = msoTrue
    
12.     ActiveDocument.Background.Fill.Solid
    
13. End Sub
    
14. Sub 白色背景()
    
15.     ActiveWindow.View.DisplayBackgrounds = True
    
16.     ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
    
17.     ActiveDocument.Background.Fill.Visible = msoTrue
    
18.     ActiveDocument.Background.Fill.Solid
    
19. End Sub
    
20. 
    

复制代码

设置为快捷键，可按照：
https://zhidao.baidu.com/question/499060134892652604.html