Word文書のセクションの単語数を数える3つの方法

この記事では、Word文書のセクションの単語数を数えるための3つの方法があります。

ドキュメントの総単語数を簡単に取得できます。 しかし、Wordにはセクションの単語数を教えてくれる機能はありません。 また、本を書いているときに章を整理するなど、同じトピックの内容をXNUMXつのセクションにまとめることを好むという事実を考えると、セクション数を取得するための回避策を考え出す必要があります。   以下は、マクロを実行する必要がある3つのアプローチです。

方法1：現在のセクションの単語数を数える

1. まず、カーソルを対象セクション内に配置してください。
2. 次に、WordでVBAエディターを開く必要があります。 「開発者」をクリックしてから、「VisualBasic」コマンドをクリックします。 リボンに「開発者」が見つからない場合は、代わりに「Alt + F11」を押してください。
3. 次に、左側の列の「通常」プロジェクトをクリックします。
4. 次に、「挿入」タブをクリックします。
5. そのドロップダウンメニューで、「モジュール」を選択します。
6. ダブルクリックして新しいモジュールを開きます。
7. 開いているモジュールに、次のコードを貼り付けます。

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. 最後に、「実行」をクリックするか、「F5」を押してコードを実行します。

以下のような現在のセクションの総数を示すメッセージボックスが表示されます。

方法2：特定のセクションの単語数を数える

あなたが本に取り組んでいて、各章を個別のセクションとして設定しているとしましょう。 次に、XNUMXつの章にいくつの単語を書いたかを知るために、この方法を利用できます。

1. 上記の手順に従って、マクロをインストールして実行します。
2. マクロを次のものに置き換えるだけです。

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. そしてそれを実行すると、入力ボックスがあります。 「セクション番号を入力」ボックスにセクション番号を入力し、「OK」をクリックして次に進みます。

結果はメッセージボックスに表示されます。

方法3：ドキュメント内のすべてのセクションの単語数を数える

サブタイトルが示すように、この方法では、ドキュメント内の各セクションの単語の総数を取得し、メッセージボックスに一覧表示します。

1. まず、対象ドキュメントを開きます。
2. それでも、マクロをインストールして実行するには、方法1の手順を繰り返す必要があります。
3. そして今回は、このマクロで変更します。

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

考えられる結果は次のとおりです。

貴重なデータを保存する

あらゆる種類の文書を扱う際には、それらの安全性に留意する必要があります。 次のデータ損失がいつ発生するかわからないため、重要なファイルをバックアップすることをお勧めします。 その上、できるツールを入手することは常に良いことです ドキュメントを回復するあれば。

著者紹介：

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