2019-06-27から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 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…