Macro do Word para alterar a cor da página

Question

Eu estou tentando criar uma macro do Word (Microsoft Word Professional 10) para alterar a cor do plano de fundo da página. Comecei gravando as teclas pressionadas - essa é a macro gravada:

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

Esta macro não funciona em novos documentos. Quando a cor de fundo da página tiver sido definida, a macro funcionará. Observando os arquivos xml, a única diferença que posso encontrar é que, depois que o plano de fundo da página foi definido, há um elemento xml <w:displayBackgroundShape/> no arquivo settings.xml. Esta poderia ser a causa da falha macro? Se sim, como faço para definir isso em uma macro?

    

Answer 1

Adicionar esta linha e executar a macro com o documento aberto no modo de exibição de impressão insere o elemento settings.xml:

activedocument.ActiveWindow.View.DisplayBackgrounds = True

(Não é facilmente deduzido do código gravado!)