Pesquisar texto contido em arquivos do word, podendo selecionar varios arquivos para pesquisa.

Em ajuda a um colega do Fórum, este exemplo pesquisa texto ou parte dele contido em arquivos do Word.. podendo selecionar pastas, sub pastas e mais de um arquivo, exibindo em lista ao lado os arquivos em que foram encontradas ocorrências do texto.



Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.

A listBox em azul refere-se às pastas da bibliotecas do Windows.. E está configurado para Windows 7, Para o XP o caminho é diferente.

Código:


Me.lbxExplorer.AddItem ("Bilbioteca" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\")
Me.lbxExplorer.AddItem ("Meus Documentos" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Documents.library-ms")
Me.lbxExplorer.AddItem ("Imagens" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Pictures.library-ms")
Me.lbxExplorer.AddItem ("Músicas" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Music.library-ms")
Me.lbxExplorer.AddItem ("Vídeos" & ";" & "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Videos.library-ms")
Me.lbxExplorer.AddItem ("Downloads" & ";" & "C:\Users\" & Environ("UserName") & "\Downloads")
Me.lbxExplorer.AddItem ("Área de Trabalho" & ";" & "C:\Users\" & Environ("UserName") & "\Desktop")
Me.lbxExplorer.AddItem ("Usuário" & ";" & "C:\Users\")


Este outro módelo, mais simples, pesquisa em uma pasta fixa, todos os arquivos ali contido.

Através do FileSystem