Sub Test() Select Case ActiveDocument.Pages(0).Background Case cdrPageBackgroundNone MsgBox "No page background" Case cdrPageBackgroundSolid MsgBox "Solid color background" Case cdrPageBackgroundBitmap MsgBox "Bitmap page background" End SelectEnd Sub