スティーブンは常に自分のドキュメントで変更履歴を使用しています。彼は、ドキュメント内で変更された単語（TrackChangesの影響を受けた単語）のみをカウントする方法を必要としています。

答えは、レビューペインを使用して必要な情報を取得できるということです。リボンの[レビュー]タブを表示し、（[追跡]グループの）[レビューペイン]ツールをクリックします。 Wordは画面にレビューペインを表示し、ペインの上部にはドキュメントで行われた改訂の概要が表示されます。次の5つの変更の統計が表示されます。

挿入削除移動フォーマットの変更*コメント

これらの統計は法案に適合しているように見えるかもしれませんが、必要な情報の「一種」を提供すると言ったことを覚えているでしょう。あなたが本当に欲しいのが変更された単語の数であるならば、それらは少し不足しています。統計カウントは、変更された単語ではなく、変更されます。たとえば、複数の単語で構成されるフレーズを削除した場合、その編集は統計では1回の削除としてカウントされます。同様に、ドキュメントにフレーズを追加すると、挿入に完全な段落が含まれていても、その追加は1回の挿入としてカウントされます。

実際の単語を変更したい場合は、残念ながら運が悪いです。Wordには、必要な情報を取得する方法がありません。ただし、独自のマクロを考案して、必要な情報を決定することはできます。次に例を示します：

Sub GetTCStats()

Dim lInsertsWords As Long     Dim lInsertsChar As Long     Dim lDeletesWords As Long     Dim lDeletesChar As Long     Dim sTemp As String     Dim oRevision As Revision          lInsertsWords = 0     lInsertsChar = 0     lDeletesWords = 0     lDeletesChar = 0     For Each oRevision In ActiveDocument.Revisions         Select Case oRevision.Type             Case wdRevisionInsert                 lInsertsChar = lInsertsChar + Len(oRevision.Range.Text)

lInsertsWords = lInsertsWords + oRevision.Range.Words.Count             Case wdRevisionDelete                 lDeletesChar = lDeletesChar + Len(oRevision.Range.Text)

lDeletesWords = lDeletesWords + oRevision.Range.Words.Count         End Select     Next oRevision

sTemp = "Insertions" & vbCrLf     sTemp = sTemp & "    Words: " & lInsertsWords & vbCrLf     sTemp = sTemp & "    Characters: " & lInsertsChar & vbCrLf     sTemp = sTemp & "Deletions" & vbCrLf     sTemp = sTemp & "    Words: " & lDeletesWords & vbCrLf     sTemp = sTemp & "    Characters: " & lDeletesChar & vbCrLf     MsgBox sTemp End Sub

このマクロは、現在のドキュメントの各変更をステップスルーし、挿入と削除の両方の単語数と文字数を別々に合計します。その後、統計はメッセージボックスに表示されます。マクロは、ドキュメントの変更ごとにWordsコレクションを参照することに注意してください。

ここに示されているように、単語数は概算であることを理解する必要があります。これは、単語の数え方によるものです。たとえば、加算の各句読点は個別の単語としてカウントされます。これは、「ご覧のとおり、これは素晴らしい方法です」などのフレーズは、9語ではなく10語として集計されることを意味します（コンマは別の単語としてカウントされます）。さらに、追加したフレーズに先頭のスペースが含まれている場合（挿入でよく使用されます）、そのスペースのために挿入用に11の単語が集計されます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（11484）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link変更された単語のカウント。