[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

Word护眼色切换宏

本帖最后由 老刘1号 于 2020-2-28 21:13 编辑

背景色调整(护眼色).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
复制代码
设置为快捷键,可按照:
https://zhidao.baidu.com/question/499060134892652604.html

返回列表