Word护眼色切换宏

老刘1号

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

Attribute VB_Name = "文档背景色调整"
Sub 绿豆沙护眼背景()
    ActiveWindow.View.DisplayBackgrounds = True
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(199, 237, 204)
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
End Sub
Sub 黑色背景()
    ActiveWindow.View.DisplayBackgrounds = True
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
End Sub
Sub 白色背景()
    ActiveWindow.View.DisplayBackgrounds = True
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
End Sub
复制代码

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