Wordでkill-line

WordでもEmacs風のキーバインドにしたいとか思ってこのへんを参考にしてみたりするわけですが、kill-lineの挙動が物理行しか対象とならなくて結構違うのです。なので、書いてみました。

いやあ、WordのVBAってほんとにやりたいことがすぐに出来ない。

Option Explicit

Sub KillLine()
    With Selection
        .Collapse Direction:=IIf(.StartIsActive, wdCollapseStart, wdCollapseEnd)
        .MoveEndUntil Cset:=Chr(13), Count:=wdForward
        .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
        If .Characters.Count > 1 Then
            .End = .End - 1
        End If
        
        .Cut
    End With
End Sub
Posted on

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です


*

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>