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