... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Como preencher modelos do Word (dotx) com o Microsoft Access

Para preencher um documento do Word com dados do Access, utilizamos os INDICADORES (Bookmarks).  Posicione o cursor no local aonde deseja inserir o INDICADOR, vá na guia Inserir da ribbon e clique em INDICADOR.

Usando Access - INDICADORES Word

Dê um nome para o INDICADOR e clique no botão Adicionar.  Geralmente, eu numero o INDICADOR.

Usando Access - Lista Indicadores

Para visualizar os INDICADORES no documento, vá na guia Arquivo > Opções > Avançado > Marque Mostrar indicadores.

Usando Access - Mostrar Indicadores

Baixe o arquivo e faça o teste:

Clique aqui e baixe o arquivo exemplo. 

Abra o arquivo modelo oferecido (BookmarksModelo.dotx) e observe a posição dos INDICADORES que irão receber os dados:

Usando Access - INDICADORES (Bookmarks)

No aplicativo exemplo DocBookmarks.accdb, abra o formulário frmTeste e clique no botão Gerar Documento Word.

Usando Access - Gerar Documento Word

Observe, no arquivo gerado, os valores preenchidos nas posições dos INDICADORES.

Usando Access - Indicadores preenchidos

O código utilizado para gerar o documento foi este abaixo.  Atente para os comentários:

Private Sub brGerarDoc_Click()
Dim wdApl As Object
Dim strLocal As String
Set wdApl = CreateObject("Word.Application")
'--------------------------
'Abre o arquivo do Word
'--------------------------
wdApl.Documents.Open FileName:=CurrentProject.Path & "\BookmarksModelo.dotx" 
With wdApl
'--------------------------------------------------------------------
'Posiciona o cursor no INDICADOR I1 e preenche com a data do processo
'--------------------------------------------------------------------
.ActiveDocument.Bookmarks("I1").Select
.Selection.Text = Nz(Format(Me!DataProcesso, "dd \de mmmm \de yyyy"))
'-----------------------------------------------------------
'Posiciona o cursor no INDICADOR I2 e preenche com o assunto
'------------------------------------------------------------
.ActiveDocument.Bookmarks("I2").Select: .Selection.Text = Nz(Me!Assunto)
 
.ActiveDocument.Bookmarks("I3").Select: .Selection.Text = Nz(Me!Instituidor)
.ActiveDocument.Bookmarks("I4").Select: .Selection.Text = Nz(Me!Recorrente)
.ActiveDocument.Bookmarks("I5").Select: .Selection.Text = Nz(Me!Processo)
.ActiveDocument.Bookmarks("I6").Select: .Selection.Text = Nz(Me!Notificação)
.ActiveDocument.Bookmarks("I7").Select
.Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I8").Select: .Selection.Text = Nz(Me!Manifestação)
.ActiveDocument.Bookmarks("I9").Select: .Selection.Text = Nz(Me!Origem)
.ActiveDocument.Bookmarks("I10").Select: .Selection.Text = Nz(Me!Estudo)
.ActiveDocument.Bookmarks("I11").Select
.Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I12").Select: .Selection.Text = Nz(Me!Estudo)
'---------------------------------------------------------
'Salva o documento preenchido no mesmo local do aplicativo
'----------------------------------------------------------
strLocal = CurrentProject.Path & "\Doc-" & Nz(Replace(Me!Assunto, " ", ""))
strLocal = strLocal & "-" & Format(Now, "hhmmss") & ".doc"
.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 preenchido para visualização e impressão
'---------------------------------------------------------
Application.FollowHyperlink strLocal
End Sub

Caso deseje acrescentar senha ao documento gerado, basta acrescentar o argumento Password na seguinte linha:

.ActiveDocument.SaveAs strLocal, Password:="SuaSenha"

Bom estudo!


 

 


3 comentário(s)

Ramon Lima Silva   19/09/2017 18:19:22

O documento abre e preenche o campo, mas quando vai salvar, ao inves de salvar automaticamente, aparece a janela de Salvar como do Word eu clico em salvar e depois disso dar erro em tempo de execução 4198.

Avelino Sampaio   20/09/2017 03:13:00

Ramon,

se inscreva no nosso site e abra um tópico sobre o assunto. Informe a versão do seu Office.

http://www.redeaccess.com.br

Aguardamos

Almir de Oliveira   26/09/2017 06:25:52

Excelente o tópico adorei, funciono muito bem.


Envie seu comentário: