Word文档开启夜间模式，护眼必备！

生有涯知无涯

前段时间楼主眼睛疼，去医院检查是结膜炎+轻度干眼症，医生说不要整天对着电子屏幕，我当然做不到了，因为工作需要一天到晚对着电脑，只能从其他方面下手了。WPS自带护眼模式，开启后是绿色背景，虽然比白底好点，但个人感觉并不好用，用久了感觉眼睛疼，估计是亮度仍然比较高吧，于是查阅资料后，写了个VBA程序，用了一段时间眼睛不疼了，所以发出来，希望能帮到大家，程序和测试文档已打包放蓝奏云：https://wwa.lanzouj.com/iaVyqedw9pi

使用方法：打开word文档，按Alt+F11打开VBE，左上角->文件->导入文件，把 夜间模式.bas 导入，然后关闭VBE，按Alt+F8，运行宏即可。可以把宏添加到快速工具栏，以后要开启或关闭夜间模式点击那个按钮就行了。


下面是源代码，部分地区的小伙伴可能打不开蓝奏云，新建宏然后复制代码进去就OK了：

[Visual Basic] 纯文本查看 复制代码

Sub 夜间模式() 'By 吾爱破解论坛 生有涯知无涯  2020/07/07

    Application.ScreenUpdating = False
    
    Dim currentPageColor '页面当前颜色
    Dim setPageColor     '页面准备设置的颜色

'===============如果页面不是黑色，就设置为黑色，否则设置为白色==================
    With ActiveDocument

        .Background.Fill.Visible = msoTrue
        .Background.Fill.Solid
        .ActiveWindow.View.DisplayBackgrounds = True
        
    End With

    currentPageColor = ActiveDocument.Background.Fill.ForeColor.RGB

    If currentPageColor <> wdColorBlack Then

        setPageColor = RGB(0, 0, 0)

    Else

        setPageColor = RGB(255, 255, 255)

    End If
    
    ActiveDocument.Background.Fill.ForeColor.RGB = setPageColor

'===============如果页面不是黑色，就设置为黑色，否则设置为白色==================

'===============设置全文字体颜色为自动后，把光标置于开头========================
    With Selection
        .WholeStory
        .Font.ColorIndex = wdAuto
        .HomeKey unit:=wdStory
    End With
'===============设置全文字体颜色为自动后，把光标置于开头========================

    Application.ScreenUpdating = True
    
End Sub

jiohui

[Visual Basic] 纯文本查看 复制代码

Sub 夜间模式() 'By jiohui  2021/5/27
 
    Application.ScreenUpdating = False
     
    Dim currentPageColor '页面当前颜色
    Dim setPageColor     '页面准备设置的颜色
 
'===============如果页面不是黑色，就设置为黑色，否则设置为白色==================
    With ActiveDocument
 
        .Background.Fill.Visible = msoTrue
        .Background.Fill.Solid
        .ActiveWindow.View.DisplayBackgrounds = True
         
    End With
 
    currentPageColor = ActiveDocument.Background.Fill.ForeColor.RGB
 
    If currentPageColor <> wdColorWhite Then
 
        setPageColor = RGB(255, 255, 255)
 
    Else
 
        setPageColor = RGB(199, 237, 204)
 
    End If
     
    ActiveDocument.Background.Fill.ForeColor.RGB = setPageColor
 
'===============如果页面不是黑色，就设置为黑色，否则设置为白色==================
 
'===============设置全文字体颜色为自动后，把光标置于开头========================
    With Selection
        .WholeStory
        .Font.ColorIndex = wdAuto
        .HomeKey unit:=wdStory
    End With
'===============设置全文字体颜色为自动后，把光标置于开头========================
 
    Application.ScreenUpdating = True
     
End Sub

我稍稍修改了一下，在白色和护眼绿之间切换，效果更好，欢迎体验

生有涯知无涯

lizhipei78 发表于 2020-7-7 21:13
我试试看这个夜间模式，好像微软的OFFICE 2019是有这个功能

你说的是深色主题，并不能把页面变黑。

重金轻乐

年纪大点儿的长时间盯电脑屏幕，都眼睛疼。谢谢分享！

Master丶乐沫

谢谢楼主分享

89684828

感谢楼主分享，深表支持！

zhyq238PJ

会被Word禁用呢

dxxiong

这个先试用一下吧

whyy

谢谢楼主分享

yangshuang

谢谢楼主分享!

泳诗

谢谢分享夜间模式

生有涯知无涯

zhyq238PJ 发表于 2020-7-7 18:06
会被Word禁用呢

请自行百度“word启用宏”