|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
平时工作天天对着word文档,经常觉得眼睛很累,随写了一个随机更换word页面背景的VBA,看累了白色的背景就点一下,这样就会将背景色改成我预置的4种视力友好色(自己瞎掰的词呵呵)中的一种。但是发现运行过程中存在一个小问题,就是对于新打开的文档,必须先手动更改一次页面背景色,否则运行时没有效果,所以在此将代码贴出来,望各位高人帮忙纠正这个小问题。谢谢!
Sub 随机背景()
a$ = "" & Int(Rnd() * 10)
Select Case a$
Case 0 To 2
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(219, 229, 241)
ActiveDocument.Background.Fill.Solid
Case 3 To 5
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(218, 238, 243)
ActiveDocument.Background.Fill.Solid
Case 6 To 8
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(234, 241, 221)
ActiveDocument.Background.Fill.Solid
Case 9 To 10
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(221, 216, 194)
ActiveDocument.Background.Fill.Solid
End Select
End Sub |
|