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


4 participantes

    [Resolvido]Abrir Documento do Word

    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Abrir Documento do Word Empty [Resolvido]Abrir Documento do Word

    Mensagem  chsestrem Seg 27 Set - 9:44

    Bom dia Amigos, li os topicos relacionados para criação do Template do word e posteriormente o documento na pasta especificada. Funciona perfeitamente. Só gostaria de saber como faço para abrir este ultimo documento após ter sido salvo na pasta?

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  vieirasoft Seg 27 Set - 9:52

    Bom Dia
    Experimente

    Dim Resultado As Variant
    Resultado = OpenFile(CurrentProject.Path & "\meuficheiro.doc")
    If Resultado <> True Then
    MsgBox Resultado
    End If
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  chsestrem Seg 27 Set - 10:38

    Bom dia Vieira, Obrigado pelo retorno

    Estou utilizando este exemplo aqui do Forum:
    Código:

    Private Sub btWord_Click()

    On Error GoTo TrataErro
    Dim oApp As Object

    ' Inicia o MS Word
        Set oApp = CreateObject("Word.Application")
        With oApp
    ' Torna o MS Word visível
            Visible = True
    ' Abre o documento
            .Documents.Open "C:\TemplateCartas\Cartinha.doc"
    'Move cada campo para o indicador definido no documento
            .ActiveDocument.Bookmarks("NomeDaEmpresa").Select
            .Selection.Text = Trim(CStr(Me.NomeDaEmpresa))
            .ActiveDocument.Bookmarks("Endereço").Select
            .Selection.Text = Trim(CStr(Me.Endereço))
            .ActiveDocument.Bookmarks("Cidade").Select
            .Selection.Text = Trim(CStr(Me.Cidade))
            .ActiveDocument.Bookmarks("Região").Select
            .Selection.Text = Trim(CStr(Me.Região))
            .ActiveDocument.Bookmarks("CEP").Select
            .Selection.Text = Trim(Me.CEP)
            .ActiveDocument.Bookmarks("NomeDoContato").Select
            .Selection.Text = Trim(CStr(Me.NomeDoContato))
            .ActiveDocument.Bookmarks("NomeDoContato1").Select
            .Selection.Text = Trim(CStr(Me.NomeDoContato))
            .ActiveDocument.Bookmarks("NomeDaEmpresa1").Select
            .Selection.Text = Trim(CStr(Me.NomeDaEmpresa))
            .ActiveDocument.Bookmarks("NomeDoContato2").Select
            .Selection.Text = Trim(CStr(Me.NomeDoContato))
            .ActiveDocument.Bookmarks("Cargo").Select
            .Selection.Text = Trim(CStr(Me.CargoDoContato))
            .ActiveDocument.Bookmarks("Endereço1").Select
            .Selection.Text = Trim(CStr(Me.Endereço))
            .ActiveDocument.Bookmarks("Cidade1").Select
            .Selection.Text = Trim(CStr(Me.Cidade))
            .ActiveDocument.Bookmarks("Região1").Select
            .Selection.Text = Trim(CStr(Me.Região))
            .ActiveDocument.Bookmarks("CEP1").Select
            .Selection.Text = Trim(CStr(Me.CEP))
            .ActiveDocument.Bookmarks("País").Select
            .Selection.Text = Trim(CStr(Me.País))
            .ActiveDocument.Bookmarks("Telefone").Select
            .Selection.Text = Trim(CStr(Me.Telefone))
            .ActiveDocument.Bookmarks("Fax").Select
            .Selection.Text = Trim(CStr(Me.Fax))
     
            .ActiveDocument.SaveAs "C:\Cartas" & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmmss") & ".doc"

           
            MsgBox "Documento salvo com sucesso...", vbInformation
           
        End With
        oApp.Quit
        Set oApp = Nothing

    Saida:
        Exit Sub

    TrataErro:
    'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
        If Err.Number = 94 Then
            oApp.Selection.Text = ""
            Resume Next
        End If
        MsgBox "Form_Clientes - btWord_Click" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
    #If DESENV Then
        oApp.Quit
        Set oApp = Nothing
        Stop
        Resume
    #End If
        Resume Saida
    End Sub

    Estou tentando abrir mais ou menos como a linha abaixo após salvar o documento, mas não vai achar o mesmo justamente pelo uso do Now

    .Documents.Open "C:\Cartas" & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmmss") & ".doc"

    como poderia localizar este arquivo ou abrir o mesmo?

    Obrigado desde já

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  vieirasoft Seg 27 Set - 10:58

    Amigão

    Dessa forma não vai ser possível pois precisa ter um campo de busca para ir buscar o arquivo desejado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  JPaulo Seg 27 Set - 10:59

    Veja a alteração deste trecho:

    .ActiveDocument.SaveAs CurrentDbDir & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"
    .ActiveDocument.Close
    MsgBox "Documento salvo com sucesso...", vbInformation
    .Documents.Open CurrentDbDir & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"
    .Visible = True
    .WindowState = wdWindowStateMaximize
    End With
    'oApp.Quit
    'Set oApp = Nothing
    Saida:
    Exit Sub


    Se você salvar com segundos, não consegue mais abrir, porque quando manda abrir já passou pelos menos 1 segundo rsrsrsrs


    .................................................................................
    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 do Word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir Documento do Word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir Documento do Word Folder_announce_new Instruções SQL como utilizar...
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  chsestrem Seg 27 Set - 11:12

    Amigo Vieira, obrigado entendi o que quis dizer,

    Seria abrir o ficheiro e selecionar o arquivo gerado. Mas como não vou precisar gravar os segundos, a dica do mestre vai servir para minha aplicação.

    Amigo JPaulo, obrigado novamente, funcionou muito bem.

    Só não estou entendendo por que o tratamento de Erro deste código 94 não está sendo respeitado.

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  vieirasoft Seg 27 Set - 13:38

    Valeuamigão. Um abraço e bom trabalho.

    Obrigado pelo retorno
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  JPaulo Seg 27 Set - 15:10

    Esse código é da Microsoft, veja se o pode ajudar a entender por que o tratamento de Erro deste código 94 não está sendo respeitado.

    http://support.microsoft.com/kb/131583/pt



    .................................................................................
    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 do Word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir Documento do Word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir Documento do Word Folder_announce_new Instruções SQL como utilizar...
    neurismar
    neurismar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/11/2010

    [Resolvido]Abrir Documento do Word Empty ADD-IN ou MACRO (NUMERAÇÃO AUTOMÁTICA DE DOCUMENTOS DO WORD E DO EXCEL)

    Mensagem  neurismar Seg 8 Nov - 22:23

    Necessito de um add-in ou uma macro, para o word e excel 2007, com o
    objetivo de colocar uma referência e/ou identificador em todos os
    documentos, seja ofí­cios, declarações, propostas e etc... qualquer
    documento novo já trazer a numeração posterior da última gerada.. modelo da referência... Ref.: XXX/HORADIAMESANO/PST (PST é o nome da minha empresa)
    Preciso gerenciar, controlar todos os documentos gerados do word e excel.

    E no cabeçalho já constar a Cidade-UF, dd de mês de ano atualizado assim que abrir um novo documento. Será que alguém pode me ajudar? Obrigado!

    Conteúdo patrocinado


    [Resolvido]Abrir Documento do Word Empty Re: [Resolvido]Abrir Documento do Word

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 19:48