[Resolvido]Abrir documento sem precisar colocar o caminho completo

Tenho módulo que, quando clicar no botão do formulário, os valores do formulário irem para o Word, só que, como está no pen drive, quando coloco no meu computador, o pen drive aparece como E:/, se eu botar em outro pc, pode aparecer como G:/, aí dá erro quando clico no botão.

Meu objetivo é criar algum comando que não precise colocar o nome do disco, apenas as outras pastas.

Private Sub Comando5_Click()

Dim oapp As Object





Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open ("E:/OC/Casa.docx") 'Abre o document << Que não precise colocar o "E".


'Deixa o Word visível.
.Visible = True





.activedocument.bookmarks("Nome").select
.selection.Text = cNome.Value

.activedocument.bookmarks("Endereço").select
.selection.Text = cEndereço.Value

.activedocument.bookmarks("Bairro").select
.selection.Text = cBairro.Value

.activedocument.bookmarks("Cidade").select
.selection.Text = cCidade.Value

.activedocument.bookmarks("Estado").select
.selection.Text = cEstado.Value


End With
End Sub
[b]

Tente assim:

---

Private Sub Comando5_Click()

Dim oapp As Object, LDrive As String, L As Integer, Caminho As String
LDrive = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

For L = 1 To 26
If Len(Dir(Mid(LDrive, L,1) & ":\OC\Casa.docx", vbArchive)) > 0 Then
Caminho = Mid(LDrive,L, 1) & ":\OC\Casa.docx"
End If
Next

Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word

With oapp
.Documents.Open (Caminho) 'Abre o document << Que não precise colocar o "E".

'Deixa o Word visível.
.Visible = True

.activedocument.bookmarks("Nome").select
.selection.Text = cNome.Value

.activedocument.bookmarks("Endereço").select
.selection.Text = cEndereço.Value

.activedocument.bookmarks("Bairro").select
.selection.Text = cBairro.Value

.activedocument.bookmarks("Cidade").select
.selection.Text = cCidade.Value

.activedocument.bookmarks("Estado").select
.selection.Text = cEstado.Value

End With
End Sub

---

Não testei, mas é mais ou menos por aí.

Obrigado, mas acusa erro no

If Len(Dir(Mid(LDrive, L, 1) & ":\OC\casa.docx", vbArchive)) > 0 Then

Aparece que o número ou nome do arquivo está incorreto.

Tente colocando no início:

On Error GoTo TErro

Dim oapp As Object, LDrive As String, L As Integer, Caminho As String
LDrive = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
...

e no final:

...
End With

Set oapp = Nothing

TErro:

If Err.Number = 52 Then
Resume Next
End If

Não se esqueça de verificar se a referência do Word está marcada.

Eu usei esse código e o word fica aberto em "processos" do gerenciador de tarefas, mas não abre, e eu estou usando o .visible = true.


Código foi esse :





Private Sub Comando5_Click()

On Error GoTo TErro

Dim oapp As Object, LDrive As String, L As Integer, Caminho As String
LDrive = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

For L = 1 To 26
If Len(Dir(Mid(LDrive, L, 1) & ":\OC\Casa.docx", vbArchive)) > 0 Then
Caminho = Mid(LDrive, L, 1) & ":\OC\Casa.docx"
End If
Next


Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open (Caminho)


'Deixa o Word visível.
.Visible = True
.Visible = True



.activedocument.bookmarks("Nome").select
.selection.Text = cNome.Value

.activedocument.bookmarks("Endereço").select
.selection.Text = cEndereço.Value

.activedocument.bookmarks("bairro").select
.selection.Text = cBairro.Value

.activedocument.bookmarks("Cidade").select
.selection.Text = cCidade.Value

.activedocument.bookmarks("Estado").select
.selection.Text = cEstado.Value


End With

Set oapp = Nothing

TErro:

If Err.Number = 52 Then
Resume Next
End If

End Sub

Eu testei isso em uma amostra aqui e funcionou sem problemas. Tente alterar o tratamento de erro para exibir uma mensagem caso ocorra outro tipo de erro:

If Err.Number = 0 Or Err.Number = 52 Then
    Resume Next
Else
    MsgBox Err.Number & " - " & Err.Description
End If

Cara, obrigado, obrigado, mas meu professor acabou de achar uma solução fácil!

Private Sub Comando5_Click()


Dim oapp As Object
Dim endereco As String
Dim arquivo As String


endereco = CurrentProject.Path
arquivo = ("\ContratoSenai.docx")



Set oapp = CreateObject("Word.Application")
'cria e abre o objeto do word


With oapp
.Documents.Open (endereco + arquivo)


'Deixa o Word visível.
.Visible = True



.activedocument.bookmarks("Nome").select
.selection.Text = cNome.Value

.activedocument.bookmarks("Endereço").select
.selection.Text = cEndereço.Value

.activedocument.bookmarks("bairro").select
.selection.Text = cBairro.Value

.activedocument.bookmarks("Cidade").select
.selection.Text = cCidade.Value

.activedocument.bookmarks("Estado").select
.selection.Text = cEstado.Value


End With

End Sub

Ah, então o arquivo está na mesma pasta do aplicativo. Se tivesse entendido essa informação antes, teria sido mais simples. Resolveria tambem assim:

.Documents.Open CurrentProject.Path & "\ContratoSenai.docx"

Pensei que um estaria no disco de cada computador e o outro no pendrive. O importante é que resolveu.
Só esquecestes de clicar no botão Resolvido.

Eu já cliquei na mãozinha de "obrigado" no seu post, vou colocar como resolvido agora.


Valeu mesmo aí!

O botão Resolvido a que me refiro é aquele que está logo acima do botão Enviar, à direita, e que acrescenta a palavra Resolvido ao título do tópico. Vou clicá-lo agora.