Home » 教育者向けの記事 » ICTの記事 » Wordの文章にルビ（ふりがな）を自動で振れるマクロ

Wordの文章にルビ（ふりがな）を自動で振れるマクロ

2020年9月23日 ICTの記事, 教育者向けの記事

小学校の先生向けに、Wordの文章にルビ（ふりがな）を自動で振れるマクロを作成したので公開したいと思います。マクロ（プログラム）を追加する作業はちょっとだけ難しいですが、最初に一度でも設定をしてしまえば、あとはルビ振りをずっと自動化することができます。毎回プリントのルビ振りが大変だという先生は、ぜひご活用ください。（注意：今回のマクロはWindows限定です。）

【スポンサードリンク】

Wordにマクロを追加する手順

マクロを追加するための手順を説明します。適当なWordファイルを開いてツールバーの「表示」を選択し（①）、その中にある「マクロ」のアイコンをクリックします（②）。すると、マクロを操作するためのウィンドウが表示されます。

ウィンドウの中にあるマクロ名の箇所に適当な名前（例：test）を入力して（③）、右側の「作成」ボタンをクリックしてください（④）。すると、次のような「マクロを作成するためのウィンドウ」が表示されます。

上図の⑤枠に書かれている文字（マクロ）を全て削除し、その代わりに下の文字（マクロ）をコピー＆ペーストしてください。

Option Explicit

'ルビを振った漢字を格納するArray
Public kanjiArray(9999) As String
'KanjiArrayのインデックス
Public KI As Long

'選択した範囲内の文字列にルビ設定
Public Sub MakeRubiPartial()
  SetPhoneticRange Selection.Range, False
End Sub

'文書全体にルビ設定
Public Sub MakeRubiAll()
  SetPhoneticRange ActiveDocument.Range, False
End Sub

'選択した範囲内の文字列にルビ設定（最初の漢字のみ）
Public Sub MakeFirstRubiPartial()
  SetPhoneticRange Selection.Range, True
End Sub

'文書全体にルビ設定（最初の漢字のみ）
Public Sub MakeFirstRubiAll()
  SetPhoneticRange ActiveDocument.Range, True
End Sub

Private Sub SetPhoneticRange(ByVal rng As Word.Range, ByVal FirstFlag As Boolean)
  Dim r As Word.Range
  Dim s As Word.Range
  Dim i As Long
  Dim dFlag As Boolean
  
  ' kanjiArrayのインデックスの初期化
  KI = 0
          
  '単語単位で処理
  For Each r In rng.Words
    'ルビが振られていないか最初にフィールド数で判定
    If r.Fields.Count < 1 Then
      ' 漢字が含まれているか判定
      If ChkKanjiRange2(r) = True Then
      
        ' 全部が漢字か判定
        If ChkKanjiRange(r) = True Then
        
          If FirstFlag = False Then
            ' 全ての漢字にルビをふる
            r.Select
            Application.Dialogs(wdDialogPhoneticGuide).Show 1
          Else
            ' 最初に出てきた漢字にだけルビをふる
            If inKanjiArray(r.Text) = False Then
              addKanjiArray (r.Text)
              r.Select
              Application.Dialogs(wdDialogPhoneticGuide).Show 1
            End If
          End If
        
        Else
          '文字単位で処理
          i = 1
          For Each s In r.Characters
            ' 漢字か判定
            If ChkKanjiRange(s) = True Then
              ' 次の文字が漢字か判定
              dFlag = False
              If i < Len(r.Text) And Len(Mid(r.Text, i + 1, 1)) > 0 Then
                If isKanji(Mid(r.Text, i + 1, 1)) = True Then
                  ' 漢字が２文字続きの場合、一緒にルビを振る
                  s.End = s.End + 1
                  dFlag = True
                End If
              End If
              
              If FirstFlag = False Then
                ' 全ての漢字にルビをふる
                s.Select
                Application.Dialogs(wdDialogPhoneticGuide).Show 1
              Else
                ' 最初に出てきた漢字にだけルビをふる
                If inKanjiArray(s.Text) = False Then
                  If dFlag = True Then
                    addKanjiArray (Mid(r.Text, i, 1))
                    addKanjiArray (Mid(r.Text, i + 1, 1))
                  End If
                  addKanjiArray (s.Text)
                  s.Select
                  Application.Dialogs(wdDialogPhoneticGuide).Show 1
                End If
              End If
              
            End If
            i = i + 1
          Next
        End If

      End If
    End If
  Next
End Sub
Private Function ChkKanjiRange(ByVal rng As Word.Range) As Boolean
'指定したRangeが全部漢字だったらTrue
  Dim ret As Boolean
  Dim i As Long
   
  ret = True
  For i = 1 To Len(rng.Text)
    If isKanji(Mid(rng.Text, i, 1)) = False Then
      ret = False
      Exit For
    End If
  Next
  ChkKanjiRange = ret
End Function
    
Private Function ChkKanjiRange2(ByVal rng As Word.Range) As Boolean
'指定したRangeに漢字が１文字でも含まれていたらTrue
  Dim ret As Boolean
  Dim i As Long
   
  ret = False
  For i = 1 To Len(rng.Text)
    If isKanji(Mid(rng.Text, i, 1)) = True Then
      ret = True
      Exit For
    End If
  Next
  ChkKanjiRange2 = ret
End Function

Private Function isKanji(ByVal strIn As String) As Boolean
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "[一-龠〃々〆〇]"

    If re.test(strIn) Then
        'MsgBox "入力文字列には、漢字が含まれてます。"
        isKanji = True
    Else
        'MsgBox "入力文字列には、漢字が含まれていません。"
        isKanji = False
    End If
End Function

Private Function inKanjiArray(ByVal str As String) As Boolean
  Dim ret As Boolean
  Dim i As Long
  ret = False
  
  For i = 0 To KI + 1
    If StrComp(kanjiArray(i), str) = 0 Then
      ret = True
      Exit For
    End If
  Next
  inKanjiArray = ret
End Function

Private Function addKanjiArray(ByVal str As String) As Boolean
  kanjiArray(KI) = str
  KI = KI + 1
End Function

⑤の入力が終わったら、ツールバーの「ファイル」から「上書き保存」をクリックします。これでマクロの追加ができましたので、「マクロを作成するためのウィンドウ」を閉じてしまって大丈夫です（⑦）。

ルビ振りマクロの使い方

ルビ振りマクロの使い方を紹介します。ルビ振りを行いたいWordファイルを開いたら、ツールバーの「表示」を選択し（①）、その中にある「マクロ」のアイコンをクリックします（②）。すると、マクロを操作するためのウィンドウが表示されます。

実行したいマクロを③の中から選び、右側の「実行」ボタンをクリック（④）したらルビ振りを行うことができます。③で選べるマクロは全部で４種類あります。

MakeRubiAll：文書全ての漢字にルビを振るマクロ
MakeRubiPartial：マウスで選択された範囲内の漢字にルビを振るマクロ
MakeFirstRubiAll：文書全ての漢字にルビを振るマクロ（前出の漢字は省く）
MakeFirstRubiPartial：マウスで選択された範囲内の漢字にルビを振るマクロ（前出の漢字は省く）

マクロを実行すると、次のようにルビ振りを全て自動で行ってくれます。下の画像は、MakeFirstRubiAll を実行した結果です。（ルビが一度振られた漢字は、二度目以降は振られていないのが分かります。）

余談

今回のマクロを作成するにあたり、初心者備忘録さんのブログを参考にさせていただきました。改めて感謝申し上げます。

初心者備忘録

ルビ(ふりがな)を一括設定するWordマクロ(改良版)

https://www.ka-net.org/blog/?p=7576

これまで当ブログではルビを設定するWordマクロについて、いくつか記事を書いてきました。それらはExcelを…

初心者備忘録さんとの大きな違いは、漢字判定のアルゴリズムを正規表現に変更したところとバグの修正、ルビの精度向上、それに前出漢字のルビ振りを省略するアルゴリズムを追加したところです。

普段はPythonやVueなどの優れたプログラミング言語を使っているため、今回使用したVBAというプログラミング言語はとても使い辛くて苦労しました。コードも汚いしリファクタリングもしていないので、同業者のエンジニアにコードを見られるとちょっと恥ずかしいですね。

とはいえ、Wordだけでルビ振りが完結するマクロはこれまで作られていなかったので、苦労して作っただけの価値はあると思っています。Wordのルビ振りで苦労している人たちの助けになれば幸いです。

追記：マクロについての補足記事をアップしました。

福原将之の科学カフェ

2021.07.13

Wordの文章にルビ（ふりがな）を自動で振れるマクロの補足

https://kagakucafe.com/2021071316030.html

以前に「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」を作成してブログで公開したのですが、このマクロについて質問やお問い合わせが多かったので、補足の記事を書くことにしました。ルビ振りマクロを使っている人は参考にしてみてください。Q. すべての漢字としてもルビが振られない単語がありますルビ振りマクロは、Wordの自動ルビ振り機能を高速で回す仕組みになっております。Wordの自動ルビ振り機能でルビが振られない単語は、マクロを実行してもルビが振られません。対処方法としては、自動で振られない単語を先に手動で...

11月のアクセスランキング | 福原将之の科学カフェ より:

2020年12月2日 12:21

[…] Wordの文章にルビ（ふりがな）を自動で振れるマクロ […]
日本語にローマ字のルビを効率的に振る方法（代替案） | 福原将之の科学カフェ より:

2021年3月3日 17:51

[…] 先日、過去記事「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」を読まれた先生から相談メールをもらいました。その先生は日本語教育関係のお仕事をしており、「ひらがなにローマ字のルビをふる作業」がとても大変とのこと。過去記事のように一括でローマ字のルビを振れるマクロを知りませんか、というご相談でした。 […]
Wordの文章にルビ（ふりがな）を自動で振れるマクロの補足 | 福原将之の科学カフェ より:

2021年7月13日 16:50

[…] 以前に「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」を作成してブログで公開したのですが、このマクロについて質問やお問い合わせが多かったので、補足の記事を書くことにしました。ルビ振りマクロを使っている人は参考にしてみてください。 […]
7月のアクセスランキング | 福原将之の科学カフェ より:

2021年8月9日 10:37

[…] Wordの文章にルビ（ふりがな）を自動で振れるマクロ […]
Wordの自動ルビ機能「新垣結衣」のふりがながパワーワード過ぎる！他の有名人でも試したら爆笑だった | 秒刊SUNDAY | ゆるいニュースまとめ より:

2021年9月10日 01:57

[…] まずは、とても分かりやすい福原将之の科学カフェを参照し、Word自動ルビのマクロを設定しました。 […]
4月のアクセスランキング | 福原将之の科学カフェ より:

2022年5月3日 20:15

[…] 5月になりましたので、2022年4月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「【Zoom】デュアルディスプレイ（外付けモニター）を使ったオンライン授業の勧め」3位「【Zoom】ブレイクアウトルームを自由に移動できる新機能（スマホ・タブレット版）」でした。ランキングTOP20を見ていきたいと思います。 […]
5月のアクセスランキング | 福原将之の科学カフェ より:

2022年6月1日 11:03

[…] 5月になりましたので、2022年5月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「【Zoom】マルチスポットライト機能とマルチピン機能（9月1日の更新情報その2）」3位「Facebookの動画ウイルスが流行中、対処法を紹介します（Chromeユーザーは要注意）」でした。ランキングTOP20を見ていきたいと思います。 […]
6月のアクセスランキング | 福原将之の科学カフェ より:

2022年7月2日 19:09

[…] 7月になりましたので、2022年6月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」3位「【Zoom】共同ホストでもブレイクアウトルームの作成や参加者の移動が可能になるアップデート（12/7, PC限定）」でした。ランキングTOP20を見ていきたいと思います。 […]
7月のアクセスランキング | 福原将之の科学カフェ より:

2022年8月4日 17:56

[…] 8月になりましたので、2022年7月のアクセスランキングを紹介します。TOP3は1位「注意！Zoomの「教育機関の時間制限解除」は今月まで」、2位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、3位「選択理論心理学の5つの欲求診断テスト」でした。ランキングTOP20を見ていきたいと思います。 […]
9月のアクセスランキング | 福原将之の科学カフェ より:

2022年10月7日 11:46

[…] 10月になりましたので、2022年9月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
10月のアクセスランキング | 福原将之の科学カフェ より:

2022年11月3日 17:05

[…] 11月になりましたので、2022年10月のアクセスランキングを紹介します。TOP3は1位「選択理論心理学の5つの欲求診断テスト」、2位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
11月のアクセスランキング | 福原将之の科学カフェ より:

2022年12月7日 14:23

[…] 12月になりましたので、2022年11月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
2022年の年間アクセスランキング | 福原将之の科学カフェ より:

2023年1月6日 14:08

[…] 2023年になりましたので、2022年の1年間のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「【Zoom】マルチスポットライト機能とマルチピン機能（9月1日の更新情報その2）」、3位「【Zoom】共同ホストでもブレイクアウトルームの作成や参加者の移動が可能になるアップデート（12/7, PC限定）」でした。ランキングTOP20を見ていきたいと思います。 […]
1月のアクセスランキング | 福原将之の科学カフェ より:

2023年2月7日 10:55

[…] 2月になりましたので、2023年1月のアクセスランキングを紹介します。TOP3は1位「選択理論心理学の5つの欲求診断テスト」、2位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
2月のアクセスランキング | 福原将之の科学カフェ より:

2023年3月4日 18:45

[…] 3月になりましたので、2023年2月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「貴景勝の優勝報告会に行ってきました」でした。ランキングTOP20を見ていきたいと思います。 […]
3月のアクセスランキング | 福原将之の科学カフェ より:

2023年4月2日 11:54

[…] 4月になりましたので、2023年3月のアクセスランキングを紹介します。TOP3は1位「選択理論心理学の5つの欲求診断テスト」、2位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
4月のアクセスランキング | 福原将之の科学カフェ より:

2023年5月3日 06:52

[…] 5月になりましたので、2023年4月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
5月のアクセスランキング | 福原将之の科学カフェ より:

2023年6月4日 12:57

[…] 6月になりましたので、2023年5月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「Evernote Legacy アプリが素晴らしかった件」でした。ランキングTOP20を見ていきたいと思います。 […]
6月のアクセスランキング | 福原将之の科学カフェ より:

2023年7月12日 14:25

[…] 7月になりましたので、2023年6月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
7月のアクセスランキング | 福原将之の科学カフェ より:

2023年8月6日 17:14

[…] 8月になりましたので、2023年7月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
8月のアクセスランキング | 福原将之の科学カフェ より:

2023年9月3日 15:39

[…] 9月になりましたので、2023年8月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
9月のアクセスランキング | 福原将之の科学カフェ より:

2023年10月14日 07:30

[…] 10月になりましたので、2023年9月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
10月のアクセスランキング | 福原将之の科学カフェ より:

2023年11月5日 12:57

[…] 11月になりましたので、2023年10月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
11月のアクセスランキング | 福原将之の科学カフェ より:

2023年12月10日 14:16

[…] 12月になりましたので、2023年11月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
12月のアクセスランキング | 福原将之の科学カフェ より:

2024年1月5日 12:01

[…] 1月になりましたので、2023年12月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
2024年1月のアクセスランキング | 福原将之の科学カフェ より:

2024年2月14日 07:10

[…] 2月になりましたので、2024年1月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
2024年2月のアクセスランキング | 福原将之の科学カフェ より:

2024年3月12日 11:00

[…] 2月になりましたので、2024年1月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「【Zoom】ホストだけが参加者のカメラを見られる新機能「フォーカスモード」」でした。ランキングTOP20を見ていきたいと思います。 […]
2024年3月のアクセスランキング | 福原将之の科学カフェ より:

2024年4月7日 10:33

[…] 4月になりましたので、2024年3月のアクセスランキングを紹介します。TOP3は1位「Wordの文章にルビ（ふりがな）を自動で振れるマクロ」、2位「選択理論心理学の5つの欲求診断テスト」、3位「令和5年度の東京都による私立高等学校新入生端末整備費助成事業」でした。ランキングTOP20を見ていきたいと思います。 […]

福原将之の科学カフェ「福原将之の科学カフェ」では、学校の先生や小学生・中学生・高校生の保護者に向けて、教育に関する情報を発信しています。カフェで読書をするような気楽な気持ちでお楽しみください。

Wordの文章にルビ（ふりがな）を自動で振れるマクロ

Wordにマクロを追加する手順

ルビ振りマクロの使い方

余談

Related Articles

コメント

Wordの文章にルビ（ふりがな）を自動で振れるマクロ

Wordにマクロを追加する手順

ルビ振りマクロの使い方

余談

Related Articles

【お勧めニュース】THEアジア大学ランキング、東大5位…日本勢が上昇

お勧め記事〜【加熱する中学受験に新たなトレンド】難関校は倍率横ばいも「中堅校」が人気急上昇の異変

先生のための Weekly 教育ニュース（4/29〜5/25）

コメント