Sub Test() Dim intPlateCounter As Integer With ActiveDocument With .PrintSettings.Separations.Plates For intPlateCounter = 1 To .Count - 1 MsgBox "The angle of the " & .Item(intPlateCounter).Color & _ " plate is " & .Item(intPlateCounter).Angle & vbCr & _ " The frequency is " & .Item(intPlateCounter).Frequency Next intPlateCounter End With End WithEnd Sub