Sub Test() Dim Seps As SeparationPlates With ActiveDocument With .PrintSettings Set Seps = .Separations.Plates .Separations.Enabled = True MsgBox "There are " & Seps.Count & " plates." End With End WithEnd Sub