Макрос Word для изменения цвета страницы

Я пытаюсь создать макрос Word (Microsoft Word Professional 10), чтобы изменить цвет фона страницы. Я начал с записи нажатий клавиш-это записанный макрос:

---
Sub WritingLayout()
'
' WritingLayout Macro
'
    ActiveDocument.Background.Fill.Visible = msoTrue
    ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 43, 56)
    ActiveDocument.Background.Fill.Solid
End Sub
---

этот макрос не работает с новыми документами. После установки цвета фона страницы макрос работает. Глядя на xml-файлы, единственное различие, которое я могу найти, заключается в том, что после установки фона страницы существует элемент xml <w:displayBackgroundShape/> в настройках.XML-файл. Может ли это быть причина сбоя макроса? Если да, то как установить это в макросе?