[Resolvido]Abrir documento word

Boa noite,eu gostaria de saber dos amigos se tem como abrir um arquivo word aparti de um formulário do access.
desde já agradeço a ajuda dos amigos.

Ola Eduardo, seja bem vindo ao fórum.

Veja aqui códigos prontinhos para isso;

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access


Ou pode usar o Shell

Private Sub SeuBotao_Click()
x = Shell("C:\Program Files\Microsoft Office\Office12\winword.exe ", 1)
End Sub

ou se for um documento especifico;

Private Sub SeuBotao_Click()
x = Shell("C:\Program Files\Microsoft Office\Office12\winword.exe " & "C:\" & "SeuDocumento.docx", 1)
End Sub

Obrigado pela ajuda mais da uma mensagem dizendo objeto não localizado.
ainda não consegui!!!

Boa tarde, edu, e bem-vindo ao fórum
Adaptou devidamente o endereço doword e o nome do documento?

Boa tarde. Também estou precisando dessa informação mas não consegui abrir o arquivo do Word usando um botão no Access.
O código ficou assim:

Private Sub Comando560_Click()
X = Shell("C:\Arquivos de programas\Microsoft Office\OFFICE11\winword.exe " & "D:\Juliano" & "AbrirArquivosExternos.doc", 1)

End Sub

Onde está o erro?
Segue um anexo da mensagem de erro que dá no Word.

Obrigado! Deu certo!

E o Resolvido ??? ...

Eu coloco mais uma vez.

Não fechei porque o tópico ainda estava aberto e entrei de penetra no assunto.

oi pessoal por motivo de saúde eu não havia mais trabalhado no meu banco de dados
e agradeço muito a você jpaulo pela força...
mais infelizmente ainda não consegui abrir o bendito arquivo do word.
não sei no que estou errando...

Não consigo abrir dos documentos , alguém pode me ajudar, se eu extrair os arquivos em C:\Program Files.... o hiperLink não abre as pastas, eu tenho que extrair-los em c:\ ,eu não quero que o instalador do winrar coloque ele em c:\
ja tentei vario códigos é não da certo

Olá a todos,

Podem tentar assim também:

Código:

Private Sub SeuBotao_Click()
  X = Shell(SysCmd(acSysCmdAccessDir) & "\winword.exe " & "C:\SuaPasta\SeuDocumento.docx", 1)
End Sub


Abraço

ele não encontra arquivo so abre o word

Dê um exemplo do nome do seu arquivo word.

Para além dos acima já mencionados, você ainda pode usar;

Código:

Private Sub SeuBotão_Click()
'Requer a referencia Microsoft Word XX.0 Object Library
'Ativá-la em Ferramentas, Referencias
Dim Word As New Word.Application
With Word
  .Documents.Open "C:\Pasta\SeuFicheiro.docx"
    .Visible = True
  .WindowState = wdWindowStateMaximize
End With
End Sub

Ou mais simples;

Código:

Private Sub SeuBotão_Click()
Dim strCaminho$
On Error GoTo 1

  strCaminho = "C:\Pasta\SeuFicheiro.docx"
 
  Application.FollowHyperlink strCaminho, , True
1:
    If Err.Number = 490 Then
        MsgBox "Ficheiro não encontrado...", vbCritical
        Exit Sub
        Else
        Exit Sub
    End If
End Sub


JPaulo pequei seu exemplo aqui
)Private Sub SeuBotão_Click()
Dim strCaminho$
On Error GoTo 1

  strCaminho = "C:\Pasta\SeuFicheiro.docx"
 
  Application.FollowHyperlink strCaminho, , True
1:
   If Err.Number = 490 Then
       MsgBox "Ficheiro não encontrado...", vbCritical
       Exit Sub
       Else
       Exit Sub
   End If
End Sub
e deu certo ele abriu a pasta , mas ele fica com essa mensagem

Código:

Private Sub SeuBotao_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
    Application.FollowHyperlink strCaminho, , True
End Sub

JPaulo
Private Sub SeuBotao_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
   Application.FollowHyperlink strCaminho, , True  <_____ esee não funciona , ele volta para o depurador

End Sub se eu colocar a

e estou com grande problema se eu colocar ele dentro do disco C:\Program Files, olha so em que mostra

porque eu não posso colocar o programa todo dentro da pasta do programas
só posso colocar ele no disco C:\?

Não entendi...

O comando que lhe passei é para colocar no evento VBA ao pressionar um botão no seu formulario, para abrir o documento.

JPaulo desculpa mesmo , é porque eu troquei de pasta e esqueci de criar novo topico ,desculpa mesmo.
Os 2 camando que me passou estão funcionando porem ele continua com a mesma mensagem , É POR CAUSA QUE EU ESTOU DENTRO DO C:\Program Files\ POXA ENTÃO TEREI QUE COLOCAR ELE EM C:\Sistlg.
Eu não entendi o motivo que o access aparece com essas mensagem e quandoé colocado dentro da pasta C:\Program Files\
,mais obrigado pela compreensão, ajuda e a paciencia .
Private Sub SeuBotao_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
  Application.FollowHyperlink strCaminho, , True , True)com esse comando em amarelo

)Private Sub SeuBotão_Click()
Dim strCaminho$
On Error GoTo 1

 strCaminho = "C:\Pasta\SeuFicheiro.docx"
 
 Application.FollowHyperlink strCaminho, , True
1:
  If Err.Number = 490 Then
      MsgBox "Ficheiro não encontrado...", vbCritical
      Exit Sub
      Else
      Exit Sub
  End If
End Sub

Veja isto;

Cole no seu navegador;
support.microsoft.com/pt-br/help/925757/how-to-enable-or-disable-hyperlink-warning-messages-in-2007-office-pro

Private Sub abrirDocumento_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
  Application.FollowHyperlink strCaminho, , True essa linha não da erro
End Sub

esse código
Private Sub abrirDocumento() x = Shell("C:\Program Files\Microsoft Office\Office12\winword.exe " & "C:\SistIg\oficio\" & "SeuDocumento.docx", 1) , não funciona, so abre direto no disco(C)

Eu não entendi se você está com duvida, ou se está a resolver.

Pode sempre optar por este sem chamada da shell.
Tem de marcar a Referência VBA "Microsoft Word XX.0 Object Library"

Código:

Private Sub SeuBotao_Click()
Dim Word As New Word.Application
With Word
  .Documents.Open "C:\TEMP\teste.doc"
    .Visible = True
  .WindowState = wdWindowStateMaximize
End With
End Sub


Código:

Private Sub SeuBotao_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
    Application.FollowHyperlink strCaminho, , True
End Sub

Olá pessoal,
Nesse código, eu consigo salvar o caminho em uma tabela? Para que sempre que eu precisar mudar o caminho do arquivo ("C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"), eu só altere o caminho nessa tabela, sem ter a necessidade de alterar o código ?

assim até mesmo o usuário poderá apontar qual arquivo simplesmente alterando o endereço

obrigado

Boa tarde e bem-vindo ao fórum
Se percebi bem, quer utilizar caminho armazenado numa tabela?
Se sim, utilize
Private Sub SeuBotao_Click()
Dim strCaminho$
strCaminho = dlookup("NomeDoCampo","NomeDaTabela","CondiçãoSeExistir")
Application.FollowHyperlink strCaminho, , True
End Sub