Liseは、1ページ未満の50の小さなドキュメントを処理しています。すべてが別々のファイルにあります（マスターまたはサブドキュメントはありません）。彼女はすべてのファイルの合計単語数を知りたいので、その数を取得する簡単な方法があるかどうか疑問に思います。

1つのオプションは、単語数を計算できるサードパーティのアドインを使用することです。ここにあなたがチェックしたいと思うかもしれない3つの提案があります：

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/?id=2_finecountv2 Total Assistant: http://www.surefiresoftware.com/totalassistant/

もちろん、他の人の解決策に頼るのではなく、「自分でロール」したい場合は、フォルダ内の各ファイルをステップスルーして合計単語数を計算する比較的単純なマクロを作成できます。

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

マクロを使用するには、集計するドキュメントを含むフォルダーへのパスを反映するようにPathName変数を変更してください。 （パス指定は円記号で終了する必要があります。）マクロを実行すると、メッセージボックスに単語数が表示されます。

注：

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

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

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

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

link：/ wordribbon-Word_Counts_for_a_Group_of_Documents [ドキュメントのグループのワードカウント]。