Sub Macro1()
 
With ActiveDocument.PageSetup
               If Not .TopMargin = CCur(Format(CentimetersToPoints(3.17), _
                 "0.0")) Or _
            Not .BottomMargin = CCur(Format(CentimetersToPoints(3.8), "0.0")) _
            Or _
            Not .LeftMargin = CCur(Format(CentimetersToPoints(2.8), "0.0")) Or _
            Not .RightMargin = CCur(Format(CentimetersToPoints(1.5), "0.0")) Or _
            Not .Gutter = CCur(Format(CentimetersToPoints(0), "0.0")) Then
            MsgBox "Seitenrändern ensprechen nicht den Standards!"
      End If
   End With
End Sub