bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Como preencher modelos do Word (dotx) com o Microsoft Access

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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, funcionou muito bem.


Envie seu comentário: