ExcelとWordを使って超お手軽単語頻度分析

2023.07.04 |

こんにちは。すごい改善のAitoです。

今日はWordとExcelを使って超お手軽に単語頻度分析をします！

単語頻度分析はアンケート分析などで活用できます。アンケートの自由記述欄から簡易的にユーザーがどのようなことに興味を持っているのかを推定する助けになるといった使い方です。他の分析手法と組み合わせることでより有用なデータが得られます。今回はいわゆるテキストマイニングの最初の段階である「単語頻度分析」をやっていこうと思います。

さて、皆さんはWordで文章を書いたことはあると思いますが、単語をダブルクリックすると単語が自動的に選択されるのをご存じですか？Wordは単語を判定する機能を持っていまして、お察しの通りVBAからプログラム的に利用することが可能です。今回はこの機能を使って分析を行っていきます。他に何もインストールする必要がないのがお手軽でいいですよね！

最初に分析する文章を決めましょう。次のリンクの記事にしましょう。

https://sugoikaizen.com/blog/8510/

この記事をワードにコピーして貼り付けます。

この時点で、Wordファイルはマクロ有効形式で保存することをお忘れなく！保存していないとこの次に示すコードが動きません……。

次にWord VBAのプログラムから示します。VBEの立ち上げ方はExcelの時と全く同じです。新しいブックを作成したら「Alt + F11」を押してVBEを起動します。

標準モジュールを作成して、以下のコードを記述します。


Option Explicit

'分かち書きをする
Sub WordSeparation()

    Dim ExcelApp As Object: Set ExcelApp = CreateObject("Excel.Application")
    Dim ExcelBook As Object  'Excel Workbook Object
    With ExcelApp
        .Visible = True
        Set ExcelBook = .Workbooks.Add   '新しいブックを追加
    End With
    
    Dim i As Long: For i = 1 To ActiveDocument.Words.Count
        ExcelBook.Worksheets(1).Cells(i, 1).Value = ActiveDocument.Words(i).Text '先ほど作ったブックに転記
    Next
    
    ExcelBook.SaveAs ThisDocument.Path + "\単語頻度分析結果.xlsx"   '保存
    ExcelApp.Quit   'Excelの終了
End Sub

少し解説をすると、WordからExcelを呼び出すためにExcelオブジェクト(ExcelやWordは各機能を持った集合体である”モノ”)として呼び出します。転記するExcelファイルを作成したら、次はWordに書かれている文章を分析して、単語ごとにExcelに一行ずつ転記していきます。最後に保存して終了です。分析の工程はActiveDocument.Words(i).Textで行われています。プログラムを読めばなんとなくわかるとは思いますが、全部の単語の数だけループして、そのi番目の単語を切り出しているだけです。