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

古いバージョンのWord（Word 2003より前）を使用している場合は、これを行う方法があります。 [検索]ボックスでCtrl + Nを押すと、Wordは「新しい」単語のみを検索します…​つまり、変更の追跡。次に、これらの「単語」を自分自身に置き換え（[置換]ボックスで^＆を使用）、置換の数を取得できます。

Word 2003を使用している場合、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は、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1095）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

linkCounting ChangedWords。