Sub SelVal Set ValsforField = ActiveDocument.Fields("FieldName").GetSelectedValues If (ValsforField.Count = 0) Then MsgBox("Nothing selected in field FieldName") Else For i = 0 To ValsforField.Count -1 MsgBox ValsforField.Item(i).Text Next End IfEnd Sub