Contando palavras específicas em um lote de documentos do Word

1

Preciso contar o número de vezes que um acrônimo (por exemplo, 'ABC') é usado em uma coleção de documentos do Word. O acrônimo é sempre três letras e em maiúsculas.

Todos os documentos do Word estão contidos na mesma pasta.

Qual é a maneira mais fácil de fazer isso? Usando um script VBS?

microsoft-word script vba automation vbscript BobJim
fonte
Eu tenho que correr com sucesso este script para contar as siglas que ocorrem em um único documento do word: word.tips.net/...
BobJim
Como eu poderia fazer esse script pesquisar todos os documentos do Word em uma pasta e retornar a contagem total da sigla em todos os documentos?
BobJim

Respostas:

1

Se não estiverem compactados (por exemplo, não no formato DOCX), qualquer ferramenta de busca de arquivos, como a descoberta do Windows, pode contá-los. Se estiverem no formato compactado Zip, o Agent Ransack gratuito poderá pesquisar nos arquivos e nos documentos não compactados. Ele mostra um resumo com contagens, bem como o nome de cada documento com a sequência de pesquisa e cada linha que a contém.

DrMoishe Pippik
fonte
0

Experimente o seguinte código 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
desencadear
fonte