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 participantes

    Gerar documento no word

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/07/2011

    Gerar documento no word Empty Gerar documento no word

    Mensagem  Connekta Informatica 28/10/2021, 12:52

    Bom dia

    Estou utilizando o código abaixo para gerar contratos. O que eu quero saber como eu faço, em vez de salvar o contrato ele some abrir o contrato.

    Desde já agradeço.

    Código:


    Dim wdApl As Object
    Dim strLocal As String
    On Error GoTo 1

    Set wdApl = CreateObject("Word.Application")
    '--------------------------
    'Abre o arquivo do Word
    '--------------------------
    wdApl.Documents.Open FileName:=CurrentProject.Path & "\Contratos\" & Me.Tipo & "" ',passwordDocument:="SenhaDoDocumento"
    With wdApl
    .ActiveDocument.Bookmarks("T001").Select: .Selection.Text = Me!txtNomeLocador
    '.ActiveDocument.Bookmarks("T002").Select: .Selection.Text = Me!txtCPFLocador
    .ActiveDocument.Bookmarks("T003").Select: .Selection.Text = Me!txtCPFLocador
    .ActiveDocument.Bookmarks("T004").Select: .Selection.Text = Me!txtLocatario
    '.ActiveDocument.Bookmarks("T005").Select: .Selection.Text = Me!txtCPFLocador
    .ActiveDocument.Bookmarks("T006").Select: .Selection.Text = Me!txtCPFLocatario
    .ActiveDocument.Bookmarks("T007").Select: .Selection.Text = Me!txtObjeto
    .ActiveDocument.Bookmarks("T008").Select: .Selection.Text = Me!txtPeriodo
    '.ActiveDocument.Bookmarks("T009").Select: .Selection.Text = Me!txtCPFLocador
    .ActiveDocument.Bookmarks("T010").Select: .Selection.Text = Me!txtDtInicio
    .ActiveDocument.Bookmarks("T011").Select: .Selection.Text = Me!txtDtTermino
    .ActiveDocument.Bookmarks("T012").Select: .Selection.Text = Me!txtValor
    '.ActiveDocument.Bookmarks("T013").Select: .Selection.Text = Me!txtCPFLocador
    '.ActiveDocument.Bookmarks("T014").Select: .Selection.Text = Me!txtCPFLocador
    '.ActiveDocument.Bookmarks("T015").Select: .Selection.Text = Me!txtCPFLocador
    '.ActiveDocument.Bookmarks("T016").Select: .Selection.Text = Me!txtCPFLocador
    '.ActiveDocument.Bookmarks("T017").Select: .Selection.Text = Me!txtCPFLocador
    .ActiveDocument.Bookmarks("T018").Select: .Selection.Text = Format(Me!txtDtAssinatura, "dd \de mmmm \de yyyy")
    .ActiveDocument.Bookmarks("T019").Select: .Selection.Text = Me!txtNomeLocador
    .ActiveDocument.Bookmarks("T020").Select: .Selection.Text = Me!txtLocatario

    '---------------------------------------------------------
    'Salva o documento preenchido no mesmo local do aplicativo
    '----------------------------------------------------------
    strLocal = CurrentProject.Path & "\CONTRATO " & Nz(Replace(Me!txtCPFLocador, " ", "")) & "-" & Format(Now, "hhmmss") & ".docx"
    .ActiveDocument.SaveAs strLocal ', Password:="123"
    '------------------
    'Fecha o documento
    '------------------
    .ActiveDocument.Close
    '-------------
    'Fecha o Word
    '-------------
    .Quit
    End With
    'Limpa a memória
    Set wdApl = Nothing
    '---------------------------------------------------------
    'Abre o documento preechido para visualização e impressão
    '---------------------------------------------------------
    Application.FollowHyperlink strLocal

    1:
    If Err.Number = 462 Then
      If Not (wdApl Is Nothing) Then
        wdApl.Close (False)
        Set wdApl = Nothing
      End If
    End If



    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    scandinavo
    scandinavo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 912
    Registrado : 11/11/2009

    Gerar documento no word Empty Re: Gerar documento no word

    Mensagem  scandinavo 28/10/2021, 14:49

    So para abrir o contrato salvo.

    Código:
      'Codigo para abrir o documento apos ser salvo
        Dim X As String
        X = CurrentProject.Path & "\Contratos Salvos\" & Me.CodContrato & "_" & Me.NomeLocatario & ".docx"
      Dim Word As New Word.Application
      With Word
      .Documents.Open X
      .visible = True
      .WindowState = wdWindowStateMaximize
      End With
    'Libera a mem?ria
        Set Word = Nothing
    Saida:
        Exit Sub
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    Gerar documento no word Empty Re: Gerar documento no word

    Mensagem  Alexandre Fim 28/10/2021, 15:24

    Connekta bom dia,

    Apenas um comentário.

    Um assunto que foi abordado aqui no fórum sobre utilizar o próprio Access para gerar relatório, evitando a dependência de outros aplicativos, no caso o MS Word.
    O Access é uma ferramenta completa.

    Já pensou na possibilidade do usuário (cliente) não possuir o Pacote Office instalado em sua máquina? Mas que tenha o Libre Office instalado apenas.
    Neste caso, essa rotina não funcionaria, e voce teria que fazer manutenção no sistema para atender esta situação.

    É isso


    []'s

    FIM

    progiuri gosta desta mensagem

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/07/2011

    Gerar documento no word Empty Re: Gerar documento no word

    Mensagem  Connekta Informatica 16/11/2021, 20:02

    Boa tarde

    Esse projeto é pra uso pessoal, não para distribuir.

    Eu preciso que somente abra o documento no word preenchido, para não ocupar espaço no disco.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





      Data/hora atual: 30/11/2021, 00:35