Von der aktuellen Position bis zum Absatzende löschen

Wer hauptsächlich die Tastatur benutzt und in Word viel mit Shortcuts arbeitet, vermisst beim Überarbeiten von Texten häufig den Befehl »Bis zum Absatzende löschen«. Dafür verwende ich das folgende kleine Makro, das man am besten auf einen Shortcut legt:

Sub BisAbsatzendeLoeschen()  
 ' löscht von der aktuellen Position bis zum Ende des Absatzes  
    With Selection
        .MoveEndUntil Chr(13)
        .Delete
    End With
End Sub  

So ordnen Sie dem Makro eine Schaltfläche auf einer Symbolleiste oder einen Shortcut zu: → Tutorial: VBA-Code für Makro einbringen und verwenden.