2019-01-01から1年間の記事一覧
全文の全角英数字を半角英数字に変更するマクロは下記を参照 q.hatena.ne.jp Sub 英数半角化() ' ' 選択範囲の全角英数字を半角に置換 ' '初期化 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For i = 48 To 57 Step 1 With …
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_漢…
Sub eGov用() ' ' 選択範囲の漢数字を英数字に置換 ' Dim a_漢数字(0 To 11) As String a_漢数字(0) = "" a_漢数字(1) = "一" a_漢数字(2) = "二" a_漢数字(3) = "三" a_漢数字(4) = "四" a_漢数字(5) = "五" a_漢数字(6) = "六" a_漢数字(7) = "七" a_漢数…