2019-06-01から1ヶ月間の記事一覧
Sub eGov2() ' ' 選択範囲の漢数字を英数字に置換 ' Dim i_百 As Integer Dim i_十 As Integer Dim i_一 As Integer Dim str_検索文字列 As String '初期化 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For i = 999 To 1 St…
Sub 裁判例用() ' ' 選択範囲の漢数字を英数字に置換 ' Dim a_漢数字(0 To 9) As String a_漢数字(0) = "〇" a_漢数字(1) = "一" a_漢数字(2) = "二" a_漢数字(3) = "三" a_漢数字(4) = "四" a_漢数字(5) = "五" a_漢数字(6) = "六" a_漢数字(7) = "七" a_漢…