自己写的一个随机切换word页面背景的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

没高手过来吗，自己顶一个

支持分享 ， 我试过没问题。