Board logo

标题: Word护眼色切换宏 [打印本页]

作者: 老刘1号    时间: 2020-2-28 19:19     标题: 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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2