Vba MS Word使用宏更改背景颜色

我可以通过宏更改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 

---

此宏在新文档上不起作用。

我找到了如何执行此宏的方法。只需在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

---

你的意思是什么背景？页面本身？无论他说的是什么背景，发现它的标准方法是使用宏记录器，执行“手动”自动化操作，然后调整和清理生成的代码。@gazz0x2z除了宏记录器变得非常“零散”之外在它记录的内容中，微软没有很好地维护它的新功能（尤其是图形）。因此，在我们推荐宏录制器之前，我们必须了解更多…从来没有遇到过问题，但如果你有，你可能是对的。不管怎样，我还不够清楚，我明白了；录音机是一个起点。永远不要使用它的原始结果。无论发生什么情况，它都需要大量的返工。我正在尝试创建一个Word宏（Microsoft Word 2013）来更改页面背景色。我开始记录击键-这是记录的宏：--Sub WritingLayout（）“”macro“ActiveDocument.Background.Fill.ForeColor.RGB=RGB（255，255，204）ActiveDocument.Background.Fill.Transparency=0#ActiveDocument.Background.Fill.PresetTextured msotexturearch End Sub--此宏对新文档不起作用。