Excel VBAで開いているWordドキュメントの数をカウントする方法

みなさん、こんにちは。今日は、ExcelのVBAを使って、現在開いているWordのドキュメントがいくつあるのかを確認する方法についてお話しします。パソコンやスマホの操作がちょっと苦手な方でも大丈夫です。わかりやすく説明していきますので、ぜひ最後までご覧ください。

はじめにExcelとWordを連携させるってどういうこと？
Excel VBAでWordのドキュメント数をカウントする方法
コードの詳しい説明
実際に使ってみた感想
よくある質問や疑問
1. Q1: このコードを実行しても何も起こらないのですが、どうすれば良いですか？
2. Q2: 他のアプリケーション（例えば、PowerPoint）のドキュメント数も同様にカウントできますか？
今すぐ解決したい！どうしたらいい？
まとめ

はじめにExcelとWordを連携させるってどういうこと？

Wordのイメージ

まず、ExcelとWordを連携させるってどういうことか、少しお話ししますね。普段、Excelは表計算、Wordは文章作成に使いますよね。でも、実はこの2つのソフトは一緒に使うことで、もっと便利になるんです。例えば、ExcelからWordを操作したり、その逆も可能です。今日は、その中でも「ExcelからWordの情報を取得する」方法を見ていきます。

Excel VBAでWordのドキュメント数をカウントする方法

では、本題に入りましょう。ExcelのVBAを使って、現在開いているWordのドキュメント数をカウントする方法をご紹介します。手順は以下の通りです。

まず、ExcelのVBAエディターを開きます。Excelを起動し、「Alt」キーと「F11」キーを同時に押すと開きます。
次に、新しいモジュールを挿入します。メニューの「挿入」から「標準モジュール」を選択します。
以下のコードを入力します。

vba

Sub CountOpenWordDocuments()

    Dim wordApp As Object

    Dim docCount As Integer
    ' 既にWordが起動しているか確認

    On Error Resume Next

    Set wordApp = GetObject(, "Word.Application")

    On Error GoTo 0

' Wordが起動していない場合はメッセージを表示 If wordApp Is Nothing Then MsgBox "現在、開いているWordドキュメントはありません。" Else ' 開いているドキュメント数を取得 docCount = wordApp.Documents.Count MsgBox "現在、開いているWordドキュメントの数は " & docCount & " です。" End If End Sub

このコードを実行すると、現在開いているWordのドキュメント数が表示されます。

コードの詳しい説明

ここで、先ほどのコードが何をしているのか、もう少し詳しく見てみましょう。

wordAppというオブジェクト変数を使って、現在起動しているWordのアプリケーションを取得しようとしています。
もしWordが起動していなければ、wordAppはNothingとなり、「現在、開いているWordドキュメントはありません。」というメッセージが表示されます。
Wordが起動していれば、wordApp.Documents.Countで開いているドキュメントの数を取得し、その数を表示します。

実際に使ってみた感想

私もこの方法を使ってみましたが、Excelから簡単にWordの状態を確認できるので、とても便利だと感じました。例えば、複数のWordドキュメントを編集しているときに、どれだけのファイルが開いているのかをすぐに把握できます。ただし、Wordが起動していないときにはエラーが出ることがありますので、その点は注意が必要です。

よくある質問や疑問

Q1: このコードを実行しても何も起こらないのですが、どうすれば良いですか？

まず、Wordが起動しているか確認してください。Wordが起動していないと、wordAppがNothingとなり、メッセージが表示されない場合があります。また、ExcelのVBAエディターで「実行」メニューから「Sub/ユーザーフォームの実行」を選択して、CountOpenWordDocumentsを実行してみてください。

Q2: 他のアプリケーション（例えば、PowerPoint）のドキュメント数も同様にカウントできますか？

はい、可能です。例えば、PowerPointの場合は、GetObject(, “PowerPoint.Application”)を使って、開いているプレゼンテーションの数を取得できます。ただし、各アプリケーションごとにオブジェクトモデルが異なるため、適切なプロパティやメソッドを使用する必要があります。