エクセルVBAでフォルダ内のWord文書のページ数・文字数などをリスト化する

photo credit: dumbledad 2nd of 6th 365: Another list, the bonkers amount on my todo list for the last two days of my Christmas break via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルVBAでWord文書の操作をする方法についてお伝えしています。

前回の記事はコチラ。

エクセルVBAでWord文書を開いてページ数や文字数などのいろんな情報を取得する

エクセルVBAでWord文書を操作する方法についてシリーズでお伝えしております。今回は、起動したWordアプリケーション上にWord文書を開いて、ページ数や文字数などのいろいろな情報を取得します。

エクセルVBAでWord文書を開いてページ数や文字数などの色々な情報を取得する方法をお伝えしました。

今回は、このプログラムを応用して、エクセルVBAでフォルダ内のWord文書の各種情報を取得してリスト化するプログラムを作っていきます。

では、行ってみましょう

前回のおさらい
今回やりたいこと：フォルダ内のWord文書の情報をリスト化
フォルダ内のWord文書の情報をリスト化するプログラム
まとめ
連載目次：エクセルVBAでWord文書を操作する方法

前回のおさらい

前回作成したプログラムはこちらです。

Sub Word文書の情報を取得する()

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True

Dim wdDoc As Word.Document
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\原稿（1章）.docx")

With wdDoc
    Debug.Print "ページ数:" & .Content.Information(wdNumberOfPagesInDocument)
    Debug.Print "段落数:" & .Paragraphs.Count
    Debug.Print "文数:" & .Sentences.Count
    Debug.Print "単語数:" & .Words.Count
    Debug.Print "文字数:" & .Characters.Count
End With

wdApp.Visible = False
Set wdApp = Nothing

End Sub

「原稿（1章）.docx」というファイルのページ数や段落数など色々な情報を取得するプログラムでした。

7行目～16行目までの処理を、フォルダ内のWord文書について繰り返すように改良をしていきたいと思います。

今回やりたいこと：フォルダ内のWord文書の情報をリスト化

まず、対象となるWord文書を以下フォルダに用意しています。

現在マクロを記述しているエクセルファイルが「Book1.xlsm」で、情報を取得したいWord文書ファイルが「原稿」というフォルダ内にゴソっと入っているという前提です。

取得した情報について記載するシートは以下の通りです。

2行目にSUM関数を仕込んでいて、合計値を算出できるようにしています。なお、このシートのオブジェクト名は「Sheet1」としています。

フォルダ内のWord文書の情報をリスト化するプログラム

では、実際のプログラムを紹介しましょう、

こちらです。

Sub フォルダ内のWord文書の情報を取得する()

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True

Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")

Dim path As String
path = ThisWorkbook.path & "\原稿"

Dim objFolder As Object
Set objFolder = objFso.GetFolder(path)

Dim i As Long
i = 3

Dim f As Object
For Each f In objFolder.Files
    With wdApp.Documents.Open(path & "\" & f.Name)
        Sheet1.Range(Sheet1.Cells(i, 1), Sheet1.Cells(i, 6)).Value = Array( _
            f.Name, _
            .Content.Information(wdNumberOfPagesInDocument), _
            .Paragraphs.Count, _
            .Sentences.Count, _
            .Words.Count, _
            .Characters.Count)
        i = i + 1
        .Close
    End With
Next f

wdApp.Visible = False
Set wdApp = Nothing

End Sub

これを実行すると、以下のようにフォルダ内に存在するすべてのWord文書についての情報をリスト化することができます。