Inquiridor
REPETIR UM MESMO DADO DO FORMULÁRIO ACCESS PARA INDICADORES DO WORD

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
Todas as Respostas
-
Bom dia Ana.
Neste caso, não é necessário alterar seu código que já está funcionando.
A alteração é necessária no documento Word.
Tendo em vista que seu documento word tem campos nomeados, utilize a opção "Partes Rápidas" da guia Inserir e vincule-as com os campos que você quer que se repita.
Segue um link explicando passoa a passo: