https://error-daizenn.hatenablog.com/entry/2025/01/22/223124

知人の体験談のあらすじ

知人は、VBAを使用してフォルダ内の複数のWordファイルを一括でCSV形式に変換するマクロを作成しようとしていました。しかし、コードの実行時にエラーが発生しました。具体的には、次の行でエラーが表示されました。

エラーメッセージは「ユーザー定義型は定義されていません」とのことで、参照設定で「Microsoft Word 16.0 Object Library」にチェックを入れているにもかかわらずエラーが続いていました。知人は、この問題を解決してスムーズにWordファイルをCSVに変換したいと考えています。

提示されたVBAコードは以下の通りです：

vba

Sub ConvertWordToCSV()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim strFolder As String
    Dim strFile As String

    'Wordを起動
    Set objWord = CreateObject("Word.Application")

    'フォルダパスを指定
    strFolder = "C:\フォルダパス\"

    'フォルダ内のすべてのWordファイルを処理
    strFile = Dir(strFolder & "*.doc*")
    Do While strFile <> ""
        'Wordファイルを開く
        Set objDoc = objWord.Documents.Open(strFolder & strFile)

        'CSVとして保存
        objDoc.SaveAs strFolder & Left(strFile, Len(strFile) - 4) & ".csv", wdFormatCSV

        'Wordファイルを閉じる
        objDoc.Close

        '次のファイルを処理
        strFile = Dir
    Loop

    'Wordを終了
    objWord.Quit
End Sub

このコードの冒頭で定義された「Dim objWord As Word.Application」の部分でエラーが発生し、プログラムが停止してしまいます。知人は、Wordのオブジェクトライブラリの参照設定を確認しており、通常は問題が起こらないはずだと考えています。しかし、なぜこのエラーが発生するのか、どのように対処すればよいのかがわからず、困惑しています。

エラーの原因と対処法に関するアドバイス

1. エラーの概要と原因の考察

エラーメッセージ「ユーザー定義型は定義されていません」は、VBAが特定のオブジェクト型やデータ型を認識できない場合に表示されます。この場合、Word.Application型が認識されていないことを示しています。考えられる原因は次の通りです：

参照設定の問題：
- 既に「Microsoft Word 16.0 Object Library」にチェックが入っていると確認しているものの、設定が正しく反映されていない可能性があります。
- 別のOfficeバージョンのライブラリを参照している場合、互換性の問題が発生している可能性もあります。
VBAの設定や環境の問題：
- VBAエディタが正しくWordオブジェクトライブラリを読み込めていない場合があります。環境の一時的な不具合やキャッシュの問題などが影響している可能性があります。
コードの問題ではない：
- コード自体に大きな問題はなく、参照設定や環境設定に原因があることが多いです。

2. 基本的な確認事項

このエラーを解消するために、まず以下の点を確認することが重要です。

a. 参照設定の再確認

VBAエディタを開きます（Alt + F11）。
「ツール」→「参照設定」を選択します。
リストから「Microsoft Word 16.0 Object Library」にチェックが入っていることを再確認します。
チェックが外れている場合はチェックを入れ、OKを押します。

場合によっては、一度チェックを外してから再度チェックを入れることで設定をリフレッシュできることもあります。

b. Officeのバージョン互換性の確認

使用しているOfficeのバージョンが16.0に対応しているか確認します。もし他のバージョンを使用している場合、そのバージョンに対応したライブラリ（例：「Microsoft Word 15.0 Object Library」など）を選択する必要があります。

c. 他のプロジェクトでのテスト

新しいExcelファイルを開いて、新しいVBAプロジェクトを作成し、同じように「Dim objWord As Word.Application」と記述してみてください。これでエラーが出るかどうか確認します。もし新しいプロジェクトでエラーが出ない場合、元のプロジェクトの設定に問題がある可能性があります。

3. 具体的な対処法

方法1: 参照設定のリフレッシュとOfficeの再起動

VBAエディタで参照設定を開き、「Microsoft Word 16.0 Object Library」のチェックを外してから再度チェックを入れてみます。
ExcelおよびWordを完全に終了し、PCを再起動します。
再度VBAエディタを開き、コードを実行してみます。

方法2: ライブラリを使わない「遅延バインディング」の使用

参照設定を必要としない「遅延バインディング」を使用することで、ライブラリの参照問題を回避することができます。この方法では、Wordオブジェクトを具体的な型として宣言せずに扱います。具体的には次のようにコードを修正します：

vba

Sub ConvertWordToCSV()
    Dim objWord As Object ' Word.ApplicationからObject型に変更
    Dim objDoc As Object  ' Word.DocumentからObject型に変更
    Dim strFolder As String
    Dim strFile As String

    'Wordを起動
    Set objWord = CreateObject("Word.Application")

    'フォルダパスを指定
    strFolder = "C:\フォルダパス\"

    'フォルダ内のすべてのWordファイルを処理
    strFile = Dir(strFolder & "*.doc*")
    Do While strFile <> ""
        'Wordファイルを開く
        Set objDoc = objWord.Documents.Open(strFolder & strFile)

        'CSVとして保存
        objDoc.SaveAs strFolder & Left(strFile, Len(strFile) - 4) & ".csv", 6 ' 6はwdFormatCSVに相当

        'Wordファイルを閉じる
        objDoc.Close

        '次のファイルを処理
        strFile = Dir
    Loop

    'Wordを終了
    objWord.Quit
End Sub

この方法では、Dim objWord As Object および Dim objDoc As Object のように宣言し、具体的なWord型を使用しません。また、定数 wdFormatCSV を直接使用できないため、その代わりにCSV形式のフォーマットコードである「6」を使用しています。これにより、参照設定が不要となり、エラーを回避できます。

方法3: 定数の定義

もしライブラリを使う場合に定数 wdFormatCSV が認識されない問題があるなら、コード内でその定数を明示的に定義する方法もあります。例えば：

をモジュールの先頭に追加すれば、wdFormatCSV を利用できるようになります。ただし、この方法は遅延バインディングに移行しない場合には意味が薄れる可能性があります。

4. 他に考えられる要因とリスクの考察

a. セキュリティ設定やグループポリシーの影響 一部の企業環境や厳格なセキュリティ設定では、特定のActiveXオブジェクトや外部アプリケーションの作成が制限されている場合があります。これにより CreateObject("Word.Application") が正常に動作しないことが考えられます。この場合は、システム管理者に確認する必要があります。

b. VBAの環境やインストールの不整合 Officeアプリケーションのインストールが不完全だったり、壊れている場合にもこのような問題が発生することがあります。Officeの修復ツールを使って修復を試みることが推奨されます。

c. 遅延バインディングのデメリット 遅延バインディングは参照設定を必要としないため便利ですが、以下のような欠点もあります：

コンパイル時の型チェックが行われないため、タイポなどのエラーが実行時まで検出されない。
実行速度がわずかに低下する可能性がある（ただし、多くの場合は影響なし）。

知人の目的であるフォルダ内のWordファイルをCSVに変換する処理においては、遅延バインディングは十分に有効な方法です。

5. まとめと推奨される手順

知人のVBAコードで発生している「ユーザー定義型は定義されていません」エラーは、主に参照設定やライブラリの問題に起因しています。以下の手順で解決を試みることを推奨します：

参照設定が正しいか再確認し、一度チェックを外してから再設定する。
ExcelおよびWordを再起動し、PCも再起動して環境をリフレッシュする。
上記の方法2で紹介した遅延バインディングを用いて、ライブラリ参照を回避するコードに変更する。

特に遅延バインディングへの変更は、参照設定の問題を根本的に回避できるため、最も効果的な対策となる可能性があります。これにより、参照設定に依存せずにWordオブジェクトを操作できるようになり、エラーも解消されるでしょう。

なお、遅延バインディングを採用する際には、コード内で使用する定数やメソッド名に注意し、上記のように必要に応じて定数を定義するか、直接値を使用するようにします。これにより、意図した通りの動作が確認できるはずです。