Sub Test() With ActiveDocument.Pages(0) .Color.RGBAssign 255, 255, 0 .PrintExportBackground = False .Bleed = 0.1 .Resolution = 150 End WithEnd Sub