選択範囲からWindowsの改行コード(CR+LF)を削除

' 選択範囲からWindowsの改行コード(CR+LF)を削除
Sub prcRemoveLineBreaks()
    Dim strText As String

    ' 選択範囲が空かどうか確認
    If Selection.Range.Start = Selection.Range.End Then
        MsgBox "テキストが選択されていません。", vbExclamation
        Exit Sub
    End If

    ' 選択範囲のテキストを取得
    strText = Selection.Text

    ' 改行を削除
    strText = Replace(strText, vbCrLf, "") ' Windowsの改行コード(CR+LF)を削除

    ' 更新されたテキストを選択範囲に設定
    Selection.Text = strText
End Sub