none
REPETIR UM MESMO DADO DO FORMULÁRIO ACCESS PARA INDICADORES DO WORD RRS feed

  • Pergunta

  • Bom dia,

    Não entendo muito de access, porém pesquisando eu consegui criar o código abaixo que tem como finalidade jogar os dados do formulário do access para os indicadores marcados no word, e tudo esta funcionando certinho.

    Porém estou com um probleminha rs

    o campo LOCADOR, E ENDERECODOIMOVEL precisam se repetir em mais de um lugar no documento do word.

    alguém consegue me ajudar??


    Private Sub gerarcontrato_Click()

    Call EnviarWordIndicador(argLOCADOR, arglocatario, argtipodeimovel, argenderecodoimovel, argprazolocacao, arginiciolocacao, argterminolocacao, argALUGUELMENSAL, argextaluguelmensal, argIPTU, argextiptu, argCONDOMINIO, argcondominioescrito, argAGUA, argaguaescrito, argELETRICIDADE, argeletricidadeescrito, argINTERNET, arginternetescrito, argGAS, arggasescrito, argTOTAL, argtotalescrito, argpagaraluguelate, argformaprimeiropagamento, argmultamoratoria, argextmultamoratoria, argjurosmes, argextjurosmes, arglimiteatraso, argextlimiteatraso, arglimiteatrasodois, argclausula1, argclausula2, argclausula3, argclausula4)

    End Sub


    Public Sub EnviarWordIndicador(argLOCADOR, arglocatario, argtipodeimovel, argenderecodoimovel, argprazolocacao, arginiciolocacao, argterminolocacao, argALUGUELMENSAL, argextaluguelmensal, argIPTU, argextiptu, argCONDOMINIO, argcondominioescrito, argAGUA, argaguaescrito, argELETRICIDADE, argeletricidadeescrito, argINTERNET, arginternetescrito, argGAS, arggasescrito, argTOTAL, argtotalescrito, argpagaraluguelate, argformaprimeiropagamento, argmultamoratoria, argextmultamoratoria, argjurosmes, argextjurosmes, arglimiteatraso, argextlimiteatraso, arglimiteatrasodois, argclausula1, argclausula2, argclausula3, argclausula4)


    Dim oApp As Object 'Cria uma variável objeto
    Dim PastaArq, ArqModelo

        'seta pasta do banco de dados
        PastaArq = CurrentProject.Path

        'Indicar nome do arquivo
        'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
        ArqModelo = "locacaosemgarantia.docx"


        ' Inicia o MS Word
        Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
        ' Torna o MS Word visível
        oApp.Visible = True
        ' Abre o documento base
        oApp.Documents.Add (PastaArq & "\" & ArqModelo)

        'Move cada campo para o indicador definido no documento

        oApp.ActiveDocument.Bookmarks("LOCADOR").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(locador), " ", "" & Forms!cadastroaluguel!locador)))

        oApp.ActiveDocument.Bookmarks("locatario").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(locatario), " ", "" & Forms!cadastroaluguel!locatario)))

        oApp.ActiveDocument.Bookmarks("tipodeimovel").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(tipodeimovel), " ", "" & Forms!cadastroaluguel!tipodeimovel)))

        oApp.ActiveDocument.Bookmarks("enderecodoimovel").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(enderecodoimovel), " ", "" & Forms!cadastroaluguel!enderecodoimovel)))

        oApp.ActiveDocument.Bookmarks("prazolocacao").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(prazolocacao), " ", "" & Forms!cadastroaluguel!prazolocacao)))

        oApp.ActiveDocument.Bookmarks("iniciolocacao").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(iniciolocacao), " ", "" & Forms!cadastroaluguel!iniciolocacao)))

        oApp.ActiveDocument.Bookmarks("terminolocacao").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(terminolocacao), " ", "" & Forms!cadastroaluguel!terminolocacao)))

        oApp.ActiveDocument.Bookmarks("ALUGUELMENSAL").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(ALUGUELMENSAL), " ", "" & Forms!cadastroaluguel!ALUGUELMENSAL)))

        oApp.ActiveDocument.Bookmarks("extaluguelmensal").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(extaluguelmensal), " ", "" & Forms!cadastroaluguel!extaluguelmensal)))

        oApp.ActiveDocument.Bookmarks("IPTU").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(IPTU), " ", "" & Forms!cadastroaluguel!IPTU)))

        oApp.ActiveDocument.Bookmarks("extiptu").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(extiptu), " ", "" & Forms!cadastroaluguel!extiptu)))

        oApp.ActiveDocument.Bookmarks("CONDOMINIO").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(CONDOMINIO), " ", "" & Forms!cadastroaluguel!CONDOMINIO)))

        oApp.ActiveDocument.Bookmarks("condominioescrito").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(condominioescrito), " ", "" & Forms!cadastroaluguel!condominioescrito)))

        oApp.ActiveDocument.Bookmarks("AGUA").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(AGUA), " ", "" & Forms!cadastroaluguel!AGUA)))

        oApp.ActiveDocument.Bookmarks("aguaescrito").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(aguaescrito), " ", "" & Forms!cadastroaluguel!aguaescrito)))

        oApp.ActiveDocument.Bookmarks("ELETRICIDADE").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(ELETRICIDADE), " ", "" & Forms!cadastroaluguel!ELETRICIDADE)))

        oApp.ActiveDocument.Bookmarks("eletricidadeescrito").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(eletricidadeescrito), " ", "" & Forms!cadastroaluguel!eletricidadeescrito)))

        oApp.ActiveDocument.Bookmarks("INTERNET").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(INTERNET), " ", "" & Forms!cadastroaluguel!INTERNET)))

        oApp.ActiveDocument.Bookmarks("internetescrito").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(internetescrito), " ", "" & Forms!cadastroaluguel!internetescrito)))

        oApp.ActiveDocument.Bookmarks("GAS").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(GAS), " ", "" & Forms!cadastroaluguel!GAS)))

        oApp.ActiveDocument.Bookmarks("gasescrito").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(gasescrito), " ", "" & Forms!cadastroaluguel!gasescrito)))

        oApp.ActiveDocument.Bookmarks("TOTAL").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(TOTAL), " ", "" & Forms!cadastroaluguel!TOTAL)))

        oApp.ActiveDocument.Bookmarks("totalescrito").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(totalescrito), " ", "" & Forms!cadastroaluguel!totalescrito)))

        oApp.ActiveDocument.Bookmarks("pagaraluguelate").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(pagaraluguelate), " ", "" & Forms!cadastroaluguel!pagaraluguelate)))

        oApp.ActiveDocument.Bookmarks("formaprimeiropagamento").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(formaprimeiropagamento), " ", "" & Forms!cadastroaluguel!formaprimeiropagamento)))

        oApp.ActiveDocument.Bookmarks("multamoratoria").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(multamoratoria), " ", "" & Forms!cadastroaluguel!multamoratoria)))

        oApp.ActiveDocument.Bookmarks("extmultamoratoria").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(extmultamoratoria), " ", "" & Forms!cadastroaluguel!extmultamoratoria)))

        oApp.ActiveDocument.Bookmarks("jurosmes").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(jurosmes), " ", "" & Forms!cadastroaluguel!jurosmes)))

        oApp.ActiveDocument.Bookmarks("extjurosmes").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(extjurosmes), " ", "" & Forms!cadastroaluguel!extjurosmes)))

        oApp.ActiveDocument.Bookmarks("limiteatraso").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(limiteatraso), " ", "" & Forms!cadastroaluguel!limiteatraso)))

        oApp.ActiveDocument.Bookmarks("extlimiteatraso").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(extlimiteatraso), " ", "" & Forms!cadastroaluguel!extlimiteatraso)))

       oApp.ActiveDocument.Bookmarks("clausula1").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(clausula1), " ", "" & Forms!cadastroaluguel!clausula1)))

       oApp.ActiveDocument.Bookmarks("clausula2").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(clausula2), " ", "" & Forms!cadastroaluguel!clausula2)))

        oApp.ActiveDocument.Bookmarks("clausula3").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(clausla3), " ", "" & Forms!cadastroaluguel!clausula3)))

        oApp.ActiveDocument.Bookmarks("clausula4").Select
        oApp.Selection.Text = (CStr(IIf(IsNull(clausula4), " ", "" & Forms!cadastroaluguel!clausula4)))



        oApp.Application.Quit
        Set oApp = Nothing

    End Sub

                                                                                                                                                                                                     
    terça-feira, 26 de novembro de 2019 17:08

Todas as Respostas