☰

计算一批 Word 文档中的特定单词数量

tag-icon • tag-icon microsoft-word script vba automation vbscript
计算一批 Word 文档中的特定单词数量

我需要统计在一组 Word 文档中使用首字母缩略词 (例如 'ABC') 的次数。首字母缩略词始终由三个字母组成，并且采用大写字母。

所有的word文档都包含在同一个文件夹中。

最简单的方法是什么？使用 VBS 脚本？

答案1

如果它们是未压缩的（即不是 DOCX 格式），任何文件搜索工具，如 Windows寻找可以计算它们的数量。如果它们是 Zip 压缩格式，则免费特工搜捕可以在文件内以及未压缩的文档中搜索。它显示带有计数的摘要，以及带有搜索字符串的每个文档的名称和包含该字符串的每一行。

答案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

相关内容