MS Word 使用宏更改背景颜色

Question

我可以通过宏更改 Microsoft Word 2003（2007、2010、2013）中页面的背景颜色吗？

我正在尝试创建 Word 宏 (Microsoft Word 2013) 来更改页面背景颜色。我首先记录击键 - 这是记录的宏：

Sub WritingLayout() 
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 204)    
    ActiveDocument.Background.Fill.Transparency = 0#     
    ActiveDocument.Background.Fill.PresetTextured msoTextureParchment     
End Sub 

该宏不适用于新文档。

Answer 1

我找到了怎么做。只需在 vba 代码之前添加这一行：

ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True

这是整个宏：

Sub WritingLayout()
'
' WritingLayout Macro
'
    ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 204)
    ActiveDocument.Background.Fill.Transparency = 0#
    ActiveDocument.Background.Fill.PresetTextured msoTextureParchment
End Sub