تعداد کلمات برای گروهی از اسناد

Question

Lise با 50 سند کوچک کار می کند که طول بسیاری از آنها کمتر از یک صفحه است. همه در فایل های جداگانه هستند (بدون سند اصلی یا فرعی). او می‌خواهد تعداد کل کلمات را در همه فایل‌ها بداند و فکر می‌کند که آیا راه آسانی برای به دست آوردن تعداد وجود دارد یا خیر.

یک گزینه استفاده از افزونه شخص ثالث است که می تواند تعداد کلمات را برای شما محاسبه کند. در اینجا سه ​​پیشنهاد وجود دارد که ممکن است بخواهید بررسی کنید:

WordCounter: http://www.editorium.com/counter.htm
FineCount: http://www.tilti.com/software-for-translators/finecount/
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 را تغییر داده اید تا مسیر پوشه حاوی اسنادی را که می خواهید جمع آوری کنید، منعکس کند. (تعیین مسیر باید به یک اسلش ختم شود.) هنگامی که ماکرو را اجرا می کنید، تعداد کلمات را در یک کادر پیام نمایش می دهد.