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

Question

Я пытаюсь создать макрос 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, единственное отличие, которое я могу найти, заключается в том, что после установки фона страницы в файле settings.xml есть элемент XML <w:displayBackgroundShape/> . Может ли это быть причиной сбоя макроса? Если это так, как мне установить это в макросе?

Answer 1

При добавлении этой строки и запуске макроса с открытым документом в режиме печати вставляется элемент settings.xml:

activedocument.ActiveWindow.View.DisplayBackgrounds = True

(Не легко выводится из записанного кода!)