数字を漢数字に ハイフンを長音記号に アルファベットを全角に変換するマクロ

経緯

＼コンニチワ／
例えばイラレの変数でcsvファイルの住所流し込みをするとします。
それが縦書きだった場合、番地は漢数字にしたくなりませんか？
ハイフンは長音記号に（今回「ｰ」ではないです）したくないですか？
英語は「縦書き中の欧文回転」でという声も聞こえてきそうですが、このマクロではなんとなく半角英語も全角に変換です。
そんなニッチなマクロです。
ちなみに当方は素人なのでツッコミどころ満載かもしれないわけで、一応「使用は自己責任で」ということにさせてください。

そんなマクロだよ

Sub SuujiWoKansuujiHaihunWoTateni
    Dim oSheet As Object
    Dim oCell As Object
    Dim oRange As Object
    Dim i As Integer
    Dim j As Integer
    Dim sText As String
    Dim result As String

    ' 漢数字変換用の配列
    Dim kansuji(9) As String
    kansuji(0) = "〇"
    kansuji(1) = "一"
    kansuji(2) = "二"
    kansuji(3) = "三"
    kansuji(4) = "四"
    kansuji(5) = "五"
    kansuji(6) = "六"
    kansuji(7) = "七"
    kansuji(8) = "八"
    kansuji(9) = "九"

    ' 全角アルファベット変換用の配列
    Dim zenkakuAlpha(51) As String
    zenkakuAlpha(0) = "Ａ"
    zenkakuAlpha(1) = "Ｂ"
    zenkakuAlpha(2) = "Ｃ"
    zenkakuAlpha(3) = "Ｄ"
    zenkakuAlpha(4) = "Ｅ"
    zenkakuAlpha(5) = "Ｆ"
    zenkakuAlpha(6) = "Ｇ"
    zenkakuAlpha(7) = "Ｈ"
    zenkakuAlpha(8) = "Ｉ"
    zenkakuAlpha(9) = "Ｊ"
    zenkakuAlpha(10) = "Ｋ"
    zenkakuAlpha(11) = "Ｌ"
    zenkakuAlpha(12) = "Ｍ"
    zenkakuAlpha(13) = "Ｎ"
    zenkakuAlpha(14) = "Ｏ"
    zenkakuAlpha(15) = "Ｐ"
    zenkakuAlpha(16) = "Ｑ"
    zenkakuAlpha(17) = "Ｒ"
    zenkakuAlpha(18) = "Ｓ"
    zenkakuAlpha(19) = "Ｔ"
    zenkakuAlpha(20) = "Ｕ"
    zenkakuAlpha(21) = "Ｖ"
    zenkakuAlpha(22) = "Ｗ"
    zenkakuAlpha(23) = "Ｘ"
    zenkakuAlpha(24) = "Ｙ"
    zenkakuAlpha(25) = "Ｚ"
    zenkakuAlpha(26) = "ａ"
    zenkakuAlpha(27) = "ｂ"
    zenkakuAlpha(28) = "ｃ"
    zenkakuAlpha(29) = "ｄ"
    zenkakuAlpha(30) = "ｅ"
    zenkakuAlpha(31) = "ｆ"
    zenkakuAlpha(32) = "ｇ"
    zenkakuAlpha(33) = "ｈ"
    zenkakuAlpha(34) = "ｉ"
    zenkakuAlpha(35) = "ｊ"
    zenkakuAlpha(36) = "ｋ"
    zenkakuAlpha(37) = "ｌ"
    zenkakuAlpha(38) = "ｍ"
    zenkakuAlpha(39) = "ｎ"
    zenkakuAlpha(40) = "ｏ"
    zenkakuAlpha(41) = "ｐ"
    zenkakuAlpha(42) = "ｑ"
    zenkakuAlpha(43) = "ｒ"
    zenkakuAlpha(44) = "ｓ"
    zenkakuAlpha(45) = "ｔ"
    zenkakuAlpha(46) = "ｕ"
    zenkakuAlpha(47) = "ｖ"
    zenkakuAlpha(48) = "ｗ"
    zenkakuAlpha(49) = "ｘ"
    zenkakuAlpha(50) = "ｙ"
    zenkakuAlpha(51) = "ｚ"

    oSheet = ThisComponent.getCurrentController().getActiveSheet()
    oRange = ThisComponent.getCurrentSelection()

    For i = 0 To oRange.getRows().getCount() - 1
        For j = 0 To oRange.getColumns().getCount() - 1
            oCell = oRange.getCellByPosition(j, i)
            sText = oCell.getString()
            result = ""

            ' 全角数字と半角数字を漢数字に変換、ハイフンを変換、半角アルファベットを全角に変換
            Dim k As Integer
            For k = 1 To Len(sText)
                Dim ch As String
                ch = Mid(sText, k, 1)
                Select Case ch
                    Case "0", "０"
                        result = result & kansuji(0)
                    Case "1", "１"
                        result = result & kansuji(1)
                    Case "2", "２"
                        result = result & kansuji(2)
                    Case "3", "３"
                        result = result & kansuji(3)
                    Case "4", "４"
                        result = result & kansuji(4)
                    Case "5", "５"
                        result = result & kansuji(5)
                    Case "6", "６"
                        result = result & kansuji(6)
                    Case "7", "７"
                        result = result & kansuji(7)
                    Case "8", "８"
                        result = result & kansuji(8)
                    Case "9", "９"
                        result = result & kansuji(9)
                    Case "-", "－"
                        result = result & "ー"
                    Case "A" To "Z"
                        result = result & zenkakuAlpha(Asc(ch) - Asc("A"))
                    Case "a" To "z"
                        result = result & zenkakuAlpha(Asc(ch) - Asc("a") + 26)
                    Case Else
                        result = result & ch
                End Select
            Next k

            oCell.setString(result)
        Next j
    Next i
End Sub

設定方法なのですが、うちはExcelではなくLibre Calcを使っちゃってますので、こちらで説明させてください。すみません。

1. ツール→マクロ→マクロの管理→Basic→マイマクロ→Standard→Module1→編集

2. Subなんとかみたいなのは全部消しちゃって、「REM  *****  BASIC  *****」の下に上記のマクロを貼り付ける
   もし他のマクロがあれば、そのマクロの最後の行の「End sub」の下から貼り付ける

3. 保存（フロッピーマーク）する
   （ここまでがマクロの登録　ここから下は実行作業）

4. 対象のセルを選択する

5. ツール→マクロ→マクロの実行→マイマクロ→Standard→Module1→SuujiWoKansuujiHaihunWoTateni

6. 実行

最後に

英語と数字とハイフンだけを変換するという尖った内容になっていますが、どこかに刺さっちゃいましたら一度見てやってください。
賢人がやればもっとちゃんとした物が作れるとは思うので、アレンジするのもありかもです。