MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

+3
Alexandre Neves
JPaulo
edu costa
7 participantes

    [Resolvido]Abrir documento word

    avatar
    edu costa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 28/07/2012

    [Resolvido]Abrir documento word Empty Abrir documento word

    Mensagem  edu costa 2/8/2012, 00:53

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 2/8/2012, 11:43

    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




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...

    julianovv gosta desta mensagem

    avatar
    edu costa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 28/07/2012

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  edu costa 15/8/2012, 15:37

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8044
    Registrado : 05/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  Alexandre Neves 15/8/2012, 16:39

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 635
    Registrado : 14/12/2010

    [Resolvido]Abrir documento word Empty Re: Abrir documento word

    Mensagem  julianovv 20/8/2012, 18:47

    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.

    Rolling Eyes
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 21/8/2012, 14:24

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 635
    Registrado : 14/12/2010

    [Resolvido]Abrir documento word Empty Res: Abrir documento word

    Mensagem  julianovv 22/8/2012, 19:57

    Obrigado! Deu certo!

    Smile
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 22/8/2012, 20:16

    E o Resolvido ??? ... Laughing

    Eu coloco mais uma vez.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 635
    Registrado : 14/12/2010

    [Resolvido]Abrir documento word Empty Res: Abrir documento word

    Mensagem  julianovv 22/8/2012, 20:56

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

    Very Happy
    avatar
    edu costa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 28/07/2012

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  edu costa 26/8/2012, 15:53

    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...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1873
    Registrado : 23/01/2018

    [Resolvido]Abrir documento word Empty ajuda nesse tópico

    Mensagem  crysostomo 30/1/2018, 10:45

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7367
    Registrado : 15/03/2013

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  ahteixeira 30/1/2018, 12:30

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1873
    Registrado : 23/01/2018

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  crysostomo 30/1/2018, 13:04

    ele não encontra arquivo so abre o word
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 30/1/2018, 13:35

    Dê um exemplo do nome do seu arquivo word.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 30/1/2018, 13:42

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1873
    Registrado : 23/01/2018

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  crysostomo 30/1/2018, 13:46

    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

    [Resolvido]Abrir documento word Sem_ty12


    Última edição por crysostomo em 30/1/2018, 14:01, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 30/1/2018, 13:57

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1873
    Registrado : 23/01/2018

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  crysostomo 30/1/2018, 14:06

    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[Resolvido]Abrir documento word Sem_ty13

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 30/1/2018, 14:18

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1873
    Registrado : 23/01/2018

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  crysostomo 30/1/2018, 14:23

    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

    [Resolvido]Abrir documento word Sem_ty14
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 30/1/2018, 14:50

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1873
    Registrado : 23/01/2018

    [Resolvido]Abrir documento word Empty abrir documento

    Mensagem  crysostomo 23/10/2018, 16:50

    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)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  JPaulo 24/10/2018, 12:00

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir documento word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir documento word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir documento word Folder_announce_new Instruções SQL como utilizar...

    crysostomo gosta desta mensagem

    avatar
    eduardo_dado
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 27/09/2016

    [Resolvido]Abrir documento word Empty Caminho

    Mensagem  eduardo_dado 8/3/2021, 15:04

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8044
    Registrado : 05/11/2009

    [Resolvido]Abrir documento word Empty Re: [Resolvido]Abrir documento word

    Mensagem  Alexandre Neves 8/3/2021, 15:48

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 6/12/2021, 17:32