複数のWord文書のページと単語の総数を数える2つの簡単な方法

ワードソリューション 2025 年 9 月 28 日
今すぐ共有：

この記事では、複数のWord文書のページと単語の総数を数える2つの迅速で効果的な方法を紹介します。

長いドキュメントで作業していると、複数のドキュメントに異なる章を配置するなど、コンテンツを複数のWordファイルに分割する傾向があります。 次に、ページと単語の総数を数える場合、個々のドキュメントを開いて情報を確認する必要があるため、少し面倒になる可能性があります。

したがって、貴重な時間を節約するのに役立つ2つの簡単な方法をリストします。

方法1：ファイルフォルダの詳細を確認する

本文では、Windows7の環境での例を示します。

  1. まず、チェックするすべてのドキュメントをXNUMXつのファイルフォルダに整理します。
  2. 次に、ファイルフォルダを開き、[ビューの変更]の横にある[その他のオプション]ボタンをクリックします。  「その他のオプション」をクリックします
  3. 次に「詳細」をクリックします。「詳細」を選択
  4. 次に、ヘッダー行を右クリックして、[その他]を選択します。右クリック-> [その他]をクリック
  5. 「詳細の選択」ダイアログボックスで、「ページ」ボックスと「単語数」ボックスをチェックします。
  6. 次に「OK」をクリックします。「ページ」と「単語数」のボックスをチェック->「OK」をクリックします

これで、各ドキュメントのページと単語を示す2つの新しい列ができます。 これらの数字を足し合わせるだけです。新しい列

ただし、この方法では、各ファイルのおおよその単語数しか提供されません。 したがって、より正確な数値を取得するには、方法2を選択できます。

方法2：マクロを作成する

  1. 同様に、まずすべての対象ドキュメントを1つのファイルフォルダにまとめてください。
  2. 次に、Wordを開き、「開発者」タブをクリックします。
  3. 次に、「VisualBasic」をクリックしてVBAエディタを開きます。 または、単に「Alt + F11」を押すこともできます。「開発者」をクリック->「VisualBasic」をクリック
  4. 次に、「通常」と「挿入」をクリックします。
  5. 次に、「モジュール」を選択します。「通常」をクリック->「挿入」をクリック->「モジュール」を選択
  6. 次に、新しいモジュールをダブルクリックして、次のコードを編集領域に貼り付けます。
Sub GetAllPageNumbers()
  Dim objWordApplication As Word.Application
  Dim nPageNumber As Long
  Dim nWordNumber As Long
  Dim objFile As Variant
  Dim objFileSystem As Object
  Dim objFolders As Object

  nPageNumber = 0
  Set objWordApplication = New Word.Application
  Set objFileSystem = CreateObject("scripting.filesystemobject")
  Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")  

  For Each objFile In objFolders.Files
    '  Only process non-hidden files
    If (objFile.Attributes And 2) = 0 Then
      With objWordApplication
        .Documents.Open (objFile)
        nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
        nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
        .ActiveDocument.Close (False)
      End With
    End If
  Next objFile

  MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)

  Set objFile = Nothing
  Set objFileSystem = Nothing
  Set objFolders = Nothing
  Set objWordApplication = Nothing
End Sub
  1. 最後に、「実行」をクリックします。 次に、以下のように、ページ番号と単語の総数を示すメッセージボックスが表示されます。コードの貼り付け-> [実行]をクリックしますメッセージボックス

注：「C：\ Users \ Test \ Desktop \ files」は、ファイルフォルダーの場所を指します。

ドキュメントの破損に注意してください

毎日あらゆる種類のレポートを処理する必要があるため、重要なファイルが破損した場合に備えてバックアップすることをお勧めします。バックアップはファイルの整合性を保護するためのセーフティネットの重要な部分です。 ただし、実際には、バックアップも破損の犠牲になる可能性があります。 そして、それはあなたが卓越したものを必要とするときです 破損したWordファイル回復ツール

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsxデータ問題修復ツール (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。