[Resolvido]Shell no Word

Pessoal estou precisando corrigir este código:

Código:

     Shell ("WINWORD" & " " & """C:\Users\Usuário\Desktop\Projeto Programa\Imóveis\ContratosGerados\" & "ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"""), vbMaximizedFocus


Pois as pastas estão diferentes em outro PC para algo do tipo que não deu certo:

Código:

Shell ("WINWORD" & " " &  CurrentProject.Path & "\Imóveis\ContratosGerados")& "ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"), vbMaximizedFocus

Mas ele não está aceitando o código está errado, não sei se falta alguma virgula ou " enfim... sou um pouco leigo no assunto, ta na tentativa acerto e erro..

Se alguém puder me ajudar ! Agradeço desde já !

Veja, uma abertura e dois fechamentos
Shell ("WINWORD" & " " &  CurrentProject.Path & "\Imóveis\ContratosGerados")& "ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"), vbMaximizedFocus

Estude e adapte a maneira abaixo

Código:

Shell("APLICATIVO_WORD" & " """ & CurrentProject.Path & "\PASTAS_COMUNS\ContratodeLocaçãoPF_Nº " & Me.Código & ".doc""", vbMaximizedFocus)

Código:

dim x
x = Shell("APLICATIVO_WORD" & " """ & CurrentProject.Path & "\PASTAS_COMUNS\ContratodeLocaçãoPF_Nº " & Me.Código & ".doc""", vbMaximizedFocus)

Código:

application.FollowHyperlink CurrentProject.Path & "\PASTAS_COMUNS\ContratodeLocaçãoPF_Nº " & Me.Código & ".doc"

Obrigado era isto mesmo que eu precisava. Abraço !!

O fórum agradece o retorno. Sucesso.