|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
平时工作天天对着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 |
|