Sub MarkWithGreater
   'Werner Roth <tiberius@uni-paderborn.de>
   'Fügt ">"-Zeichen ab der Cursorposition vor allen Zeilen ein
   'ActiveWindow.ActionStart 'sichtbare Formatierung des Dokumentes aus
   Selection.GoToEndOfLine( FALSE )       'immer vom Zeilenende ausgehen (wg. IsEndOfDoc)
   DO UNTIL Selection.IsEndOfDoc          'Solange nicht das Dokumentende erreicht ist wiederhole:
        Selection.StyleApply( "Vorformatierter Text", 2 )
        Selection.GoToStartOfLine( FALSE ) 
        Selection.Insert( "> " )
        Selection.GoToEndOfLine( FALSE )
        IF not Selection.IsEndOfPara then  'jedes Zeilenende hart umbrechen.
                Selection.InsertPara()
        else
                Selection.GoDown( 1, FALSE )
        endif
        Selection.Text.GoToEndOfLine( FALSE )
   LOOP 
   Selection.Text.GoToStartOfLine( FALSE )
   Selection.Text.Insert( "> " )
   'ActiveWindow.ActionEnd 'sichtbare Formatierung des Dokumentes an
End Sub