WORD VBA修改页面颜色

aroffice

在WORD中修改页面颜色时录制了宏如下：
Sub 宏1()
'
' 宏1 宏
'
'
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 176, 80)
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.Solid
End Sub

但是，一个新的页面运行这个宏，却没有改变页面颜色。

如何在WORD中，使用VBA修改页面颜色为RGB(204, 232, 207)(WORD2010版)
Sub 背景颜色()
ActiveWindow.View.DisplayBackgrounds = True
With ActiveDocument.Background.Fill
     .Visible = True
     .ForeColor.RGB = RGB(204, 232, 207)
End With
End Sub

aroffice

我的WORD版本是2010，发现一个现象，如果设置一次背景颜色，以下代码就能发挥作用了。重新打开的WORD，无反应。
Sub 宏1()
With ActiveDocument.Background.Fill
    .Visible = True
    .ForeColor.RGB = RGB(204, 232, 207)

End With
End Sub

dafanshu1

在VBA帮助中关于Document.Background 属性说到：只有在 Web 版式视图中才能看到背景。
因此要想在页面视图中看到背景，需要添加一句：
ActiveWindow.View.DisplayBackgrounds = True
或者在选项设置里勾选如图的选项（2007版）：

keynes6

dafanshu1 发表于 2017-2-27 15:02
在VBA帮助中关于Document.Background 属性说到：只有在 Web 版式视图中才能看到背景。
因此要想在页面视图 ...

太有才了，就是这么回事，终于解决了，非常感谢

89441967

学习一下~~~~~