MS-Wordのマクロ - pxy12770@wiki

行末までのカット (EmacsのC-kもどき)

MS-Wordはkeylayのマクロなどで行末までを選択しようとすると 一行全体が選択されてしまう。 とってもいらんことしぃで腹が立ちますが、マクロで対応することにしました。

Sub CutToEndOfLine()
   Dim SelStart As Long, SelEnd As Long
   
   SelStart = Selection.Start
   Selection.EndKey Unit:=wdLine
   SelEnd = Selection.Start
   If SelStart <> SelEnd Then
     Selection.Start = SelStart
     Selection.Cut
   End If
End Sub