【Word VBA】ワードで数字を漢数字に変換する方法

Wordで数字を漢数字に変換したいときはないでしょうか。

例えば住所の番地や法律などの項番などが該当するかと思います。

けど、そんな中で悩むことは、

・Wordで数字を漢数字に変換したいが方法がわからない
・Word VBAで数字を漢数字に変換したいが複雑でどう組めばよいかわからない

ですよね。

今回はそんなお悩みを解決する
ワードで数字を漢数字に変換する方法について
まとめます！

Wordで数字を漢数字に変換するイメージ

Wordで数字を漢数字に変換するイメージについて説明をします。

適当な半角数字を含む文書を作成します。

Wordの通常機能では数字を漢数字に変換する機能はありませんので、VBAで機能を追加します。

ワンクリックで半角数字部分がすべて漢数字に変換されます。

さらに漢数字の変換パターンも1設定でカンタンに変えることができます。

■拾、百、阡、萬

■一、二、三

それでは早速使ってみましょう！

Wordでサンプルの文書を用意する

半角数字を含む文書を作成し、開きっぱなしにしておきましょう。

Wordで数字を漢数字に変換するVBA

Wordで数字を漢数字に変換するVBAを準備します。

サンプルコードは以下の通りです。

Sub 数字を漢数字に変換する()

  Dim strChangeWord As String
  Dim strBuf As String
  Dim objWord As Range
  Dim objParagraph As Paragraph
  
  '漢数字変換パターン（書式）を指定します。
  '十､百､千､万⇒1
  '拾､百､阡､萬⇒2
  '一､二､三　⇒3
  Const intshoshikiNum = 1

'RegExpをオブジェクトにセットします｡
Set objRegExp = CreateObject("VBScript.RegExp")

'全体の範囲から1行づつ文字列を読み込みます。
For Each objParagraph In ActiveDocument.Range.Paragraphs

    'Range.Textで1行分読み取った文字列を変数に格納します。
    strBuf = objParagraph.Range.Text
    
    '検索条件を指定します。"([0-9]+)"は数字の塊の指定条件となります。
    objRegExp.Pattern = "([0-9]+)"

    '検索を実行し一致する限り処理を繰り返します。
    For Each objMatchWord In objRegExp.Execute(strBuf)
        
        '検索結果の値を漢数字へ変換し、変数へ代入します。
        strChangeWord = Evaluate("NUMBERSTRING(" & objMatchWord.Value & "," & intshoshikiNum & ")")

        '変換後の文字列と変換前の文字列を置き換え変数へ格納します。※1行に複数条件に該当する文字列があれば順に置換していきます。
        strBuf = objRegExp.Replace(strBuf, strChangeWord)
    
    Next
   
    '作業bufが変更されていたら、1行をまるまる交換します。
    If strBuf <> objParagraph.Range.Text Then
        objParagraph.Range.Text = strBuf
    End If

  Next
  
  MsgBox "数字を漢数字に変換しました！"
  
  Set objParagraph = Nothing
  Set objMatchWord = Nothing
  Set objRegExp = Nothing
End Sub

VBAの設定をする

Wordで数字を漢数字に変換するVBAに設定をしていきましょう。

設定箇所は以下の通りです。

漢数字変換パターン（書式）を指定します。

Const intshoshikiNum = 1

書式パターンにしたい数字を指定してください。

十､百､千､万⇒1
拾､百､阡､萬⇒2
一､二､三　⇒3

参照設定を追加する

今回はExce lの関数「NUMBERSTRING」を使って漢数字変換をしていますので、VBE(Visual Basic Editor)を開き、「ツール」＞「参照設定」から
「Microsoft Excel **.* Object Library」にチェックを入れOKをクリックして実装してください。