Подсчет конкретных слов в пакете документов Word

Question

Мне нужно подсчитать количество раз аббревиатуру (например,ABC ') используется в сборнике текстовых документов. Акроним всегда состоит из трех букв и заглавных букв.

Все документы Word содержатся в одной папке.

Какой самый простой способ сделать это? Используя сценарий VBS?

Answer 1

Если они распакованы (то есть не в формате DOCX), их могут подсчитать любые инструменты поиска файлов, такие как Windows find . Если они в сжатом формате Zip, бесплатный агент Ransack может выполнять поиск по файлам, а также по несжатым документам. Он показывает сводку с подсчетами, а также название каждого документа со строкой поиска и каждую строку, содержащую его.

Answer 2

Попробуйте следующий код VBS:

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder("c:\")
For Each thing in f.files
    If LCase(Right(thing.path, 3)) = "doc" Then
        Set doc = GetObject(thing.path)
                For each wd in doc.words
                    If wd = "cat" then Counter = Counter + 1
                Next
                Doc.close
                set doc = nothing
    End If
Next
MsgBox Counter