【Word】条文の漢数字をアラビア数字に変換
ブログを書いているとき、条文を引用する際イラッとするのが、漢数字の条数です。
例えばこういう↓やつ。
第百十九条 次の各号のいずれかに該当する者は、六箇月以下の懲役又は三十万円以下の罰金に処する。
労働基準法第119条
一 第三条、第四条、第七条、第十六条、第十七条、第十八条第一項、第十九条、第二十条、第二十二条第四項、第三十二条、第三十四条、第三十五条、第三十六条第六項、第三十七条、第三十九条（第七項を除く。）、第六十一条、第六十二条、第六十四条の三から第六十七条まで、第七十二条、第七十五条から第七十七条まで、第七十九条、第八十条、第九十四条第二項、第九十六条又は第百四条第二項の規定に違反した者
読みづらいったらありゃしない。ヽ( ´Д｀）ﾉ
これまでいちいち手で直していたのですが、めんどくさくなったのでマクロでどうにかしようと思い立ち、ちまちまコーディングしていたのですが、私が考えなくてもすでに先人たちの優れたコードがWebサイトにありましたので、そちらを使うことにしました。
こちらです↓。
Word：漢数字⇒算用数字変換マクロ ― 洋々亭のお仕事Tips
http://www.hi-ho.ne.jp/tomita/tips/tips_wd_001.html
使い方もこちらのサイトに書いてあるので、ご参照ください。
労働基準法を試しに変換してみました。
これ↑を変換すると、
こう↑なりました。
いや～便利！
なお、労働基準法の場合単位が独特なので、下記のコードの部分を、
' 変換単位（複数文字可）
unit = "(・|\.|人|名|円|年|月|日|時|分|秒|世紀|章|節|条|項|号|目|款|歳|番|番地" & _
"|点|匹|頭|羽|冊|本|枚|台|機|回|軒|件|県|審|間|世帯|米|平方|立方" & _
"|以上|以下|未満|を超え" & _
"|キロ|メガ|トン|メートル|センチ|ミリ|マイクロ|ミクロン|ヤード|ポンド|インチ|エーカー" & _
"|リットル|ガロン|ヘクト|パーセント|ベクレル|シーベルト|グレイ|ドル|ユーロ|元|ウォン" & _
"|\%|％|cm|ｃｍ|Cm|Ｃｍ|℃|μ|m|ｍ|M|Ｍ|k|ｋ|K|Ｋ|Sv|Ｓｖ|Bq|Ｂｑ|Gy|Ｇｙ" & _
"|光年|パーセク|ー)"このように↓修正して使いました。
' 変換単位（複数文字可）
unit = "(・|\.|人|名|円|年|月|週|日|労働日|時|分|秒|箇月|ヶ月|世紀|章|節|条|項|号|目|款|歳|番|番地" & _
"|点|匹|頭|羽|冊|本|枚|台|機|回|軒|件|県|審|間|世帯|米|平方|立方" & _
"|以上|以下|未満|を超え" & _
"|キロ|メガ|トン|メートル|センチ|ミリ|マイクロ|ミクロン|ヤード|ポンド|インチ|エーカー" & _
"|リットル|ガロン|ヘクト|パーセント|ベクレル|シーベルト|グレイ|ドル|ユーロ|元|ウォン" & _
"|\%|％|cm|ｃｍ|Cm|Ｃｍ|℃|μ|m|ｍ|M|Ｍ|k|ｋ|K|Ｋ|Sv|Ｓｖ|Bq|Ｂｑ|Gy|Ｇｙ" & _
"|光年|パーセク|ー)"
「労働日」とか「箇月」とか「週間」とか、労働基準法では使っていますので。
このコードの作者様によればフリーソフトでGPLに準じて使ってよいとのことですので、ありがたいことです。
本日作ったものをZIPにして置いておきます。
https://kn-sharoushi.com/wp-content/uploads/2023/04/洋々亭のお仕事TipsPresents_漢数字算用数字変換.zip
※著作権は洋々亭のお仕事Tipsさんにあります。
※フリーソフトで、取扱いはGPLに準じます。
※このマクロによって発生した損害について、私は何ら責任を負いません。自己責任でお使いください。
-
前の記事
フォントで迷走 2023.05.01
-
次の記事
【WordVBA】条文の概要と条数とを1行にする 2023.05.08