段落の結合

某氏が「vim の J みたいなことを Word でやりたい」と書いていたが、まぁ、そういうのはマクロを組めばいいんじゃないかと思った。

Sub JoinLines()
    Dim First As Integer, Last As Integer
    
    With Selection.Range
        First = .Start
        Last = .End
    End With
    
    Selection.EndOf Unit:=wdParagraph
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    
    Selection.SetRange First, Last
End Sub

まぁ、適当だけど。