Localizando e Abrindo Documentos 2

[FabianoCRZ]

Olá caros amigos :

Há alguns dias postei uma pergunta onde gostaria de saber como fazer uma procura de documentos do Word com uma userform, uma textbox e um botão criados em VBA no Excel.

Bem, o nosso amigo Luiz Cláudio do Fórum da Microsoft me ajudou e me mandou essa sub que funcionou perfeitamente :

Private Sub CommandButton1_Click()
Dim WApp As Object
Set WApp = CreateObject("Word.Application")
WApp.Documents.Open ("D:\" & TextBox1.Text & ".doc")
WApp.Visible = True
End Sub

Mas como um bom aluno fiquei pensando em uma coisa um pouco mais além. A sub que o Luiz postol faz a busca do documento em uma pasta, ou melhor, faz a busca em um caminho pré definido ( ex: C:\Documentos ).

A minha dúvida é a seguinte :

Como faço para que a busca seja feita em outros caminhos?

Por exemplo : tenho uma pasta com vários documentos do Word no seguinte caminho C:\Documentos , e tenho outros documentos do Word em outro caminho C:\Documentos2 , gostaria que a sub rotina buscasse no primeiro caminho se não encontrar o arquivo no primeiro caminho a sub faz a busca no segundo caminho.

Mais um a vez agradeço a todos!!!!

Editado Fevereiro 7, 2008 por FabianoCRZ

[RenatoMejias]

A idéia é a mesma, só altere nessa linha:

WApp.Documents.Open ("D:\" & TextBox1.Text & ".doc")

Deixe em função de um ComboBox.

[FabianoCRZ]

A idéia é a mesma, só altere nessa linha:

WApp.Documents.Open ("D:\" & TextBox1.Text & ".doc")

Deixe em função de um ComboBox.

Caro amigo Renato :

Pelo que entendi você quer dizer para eu criar uma combobox onde eu escolherei o caminho a ser procurado, é isso mesmo?

Se for isso, poxa até que a idéia é boa, mas será que tem como fazer com que a busca seja automática? Ou seja se em uma pasta chamada Documentos eu tenho 10 arquivos do Word com o nome RNC 1.doc ... e em outra pasta eu tenho 10 documentos chamados info 1.doc ... se eu escrever na minha textbox a palavra info 1 ele procura na pasta Documentos como a sub não vai encontrar automaticamente ela faz a busca na outra pasta?

Valeu pela ajuda!

[RenatoMejias]

Desculpe a demora, a semana foi uma loucura completa.

Você quer listar os arquivos presentes no diretório em um combobox?

[FabianoCRZ]

Desculpe a demora, a semana foi uma loucura completa.

Você quer listar os arquivos presentes no diretório em um combobox?

Fala meu amigo Renato:

Desculpe também a minha demora em responder.

Já consegui fazer o que eu precisava e estou compartilhando com você :

Private Sub CommandButton1_Click()
Dim WApp As Object
Set WApp = CreateObject("Word.Application")
On Error Resume Next
'Tentativa de abrir no caminho principal
WApp.Documents.Open ("F:\usuarios\cqf\Audt 2007\RNCs 2008\ACIARIA\RNC" & TextBox1.Text & ".doc")
'Se falhou ao tentar abrir no caminho principal, gerando o erro número
'5174, tenta no caminho alternativo
If Err.Number = 5174 Then WApp.Documents.Open ("C:\Documentos2" & TextBox1.Text & ".doc")
WApp.Visible = True
End Sub

Obrigado pela sua ajuda e atenção meu amigo!!!

Editado Fevereiro 26, 2008 por FabianoCRZ