Sub FormatStandard 
   'Werner Roth <tiberius@uni-paderborn.de>
   'Format.Standard   
   'Umschalt+Strg+<Leer>
   IF ActiveModule.Name <> "StarWriter" THEN
      MsgBox("FormatStandard können Sie nur innerhalb eines Textdokuments anwenden.",16,"Fehler")
      EXIT SUB
   ENDIF
   Selection.ResetAttributes()
End Sub