ワードカウント統計からテーブルテキストを除外する2つの方法

本日の記事では、表のテキストを単語数統計から除外するための効果的な方法を2つご紹介します。

テーブルは通常、データを保持するために使用されます。 そして、テーブルは、ドキュメントで作業しているときにポイントを説明する上での私たちの親友です。 次に、単語数が関係していると、少し厄介になる可能性があります。 場合によっては、テーブル内のすべてのデータではなく、メインテキストの単語数を取得する必要があります。 それでも、Wordはデフォルトでドキュメント内のすべての単語をカウントすることはすべての人に知られています。 このため、効率的な手段を考え出しました。 詳細については、以下をお読みください。

方法1：テーブルを手動で選択し、自分で計算を行う

テーブルがXNUMXつかXNUMXつしかない短いドキュメントの場合は、「Ctrl」キーを押しながらテーブルをXNUMXつずつ選択するのは簡単です。 このアプローチでは、選択したテーブルの総数が次のようにステータスバーに表示されます。

ご覧のとおり、2つの数字があります。 XNUMXつ目は選択したテーブルの単語数を示し、XNUMXつ目はドキュメント内の単語の総数を示します。 XNUMX番目の数値から最初の数値を引いたものを使用して結果を取得します。

方法2：VBAコードを実行する

上記のように、ドキュメントに多数のテーブルがある場合、方法1は面倒です。 それらを手動で選択することは、間違いなく理想的な方法ではありません。 代わりに、すべての単語をカウントするが、表とキャプションでこれらを除外するマクロをお勧めします。

1. まず最初に、「Alt + F11」を押して、WordでVBAエディターを起動してください。
2. 次に、「通常」をクリックします。
3. 次に、「挿入」タブをクリックします。
4. そして、「挿入」タブのドロップダウンメニューで「モジュール」を選択します。
5. 新しいモジュールをダブルクリックして、右側のコーディング領域を開きます。
6. 次に、次のマクロをそこに貼り付けます。

Sub ExcludeTableAndCaptionWordsFromWordCount()
  Dim objTable As Table
  Dim objParagraph As Paragraph
  Dim objDoc As Document
  Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
 
  Set objDoc = ActiveDocument
  nTableWords = 0
  nCaptionWords = 0
  nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
 
  With objDoc
    For Each objTable In .Tables
      nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Next objTable
  End With
 
  With objDoc
    For Each objParagraph In .Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
      End If
    Next objParagraph
  End With
 
  nWordCount = nDocWords - nTableWords - nCaptionWords
 
  MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub

7. 最後に、「実行」をクリックします。

マクロを実行すると、カウント結果を示すメッセージボックスがポップアップ表示されます。

単語の損傷に対処する

私たちは日常的に仕事を処理するためにWordのようなソフトウェアに大きく依存しています。 その結果、私たちは持っていることの圧倒的な結果について考えることをむき出しにすることができませんでした 単語の破損。 十分なドキュメント修復ツールがないと、必死に感じることがあります。

著者紹介：

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