Usando Access

Private Sub btGerarDocLista_Click()
Dim wdApl As Object
Dim strLocal As String
Dim rs As DAO.Recordset
Dim strSql As String

Set wdApl = CreateObject("Word.Application")
'--------------------------
'Abre o arquivo do Word
'--------------------------
wdApl.Documents.Open FileName:=CurrentProject.Path & "\ModeloTabela.dotx"
With wdApl
'Posiciona o cursor no INDICADOR I1 e preenche com o nome do estado
.ActiveDocument.Bookmarks("I1").Select: .Selection.Text = "Rio de Janeiro"
'Posiciona o cursor no INDICADOR I2 e preenche com a data de hoje
.ActiveDocument.Bookmarks("I2").Select

.Selection.Text = Nz(Format(Date, "dd \de mmmm \de yyyy"))
'-------------------------------------------
'Monta consulta com os campos desejados
'-------------------------------------------
strSql = "SELECT dataVencimento,Descriminação,valorDoc FROM tblAtrasados "
strSql = strSql & "WHERE idCliente = 1 ORDER BY DataVencimento,Descriminação;"

'----------------------------

'Abre o recordset da consulta

'-----------------------------
Set rs = CurrentDb.OpenRecordset(strSql, 8)
'----------------------------------------

'Percorre todos os registros da consulta

'----------------------------------------
Do While Not rs.EOF

    'posiciona o cursor na tabela    
    With .ActiveDocument.Tables(1)

        'posiciona o cursor na última linha da tabela 

        'e preenche as células(colunas)
        With .rows.Last
            .Cells(1).Range.Text = rs!dataVencimento
            .Cells(2).Range.Text = rs!descriminação
            .Cells(3).Range.Text = Format(rs!ValorDoc, "Currency")
        End With
        rs.MoveNext

        'Adiciona nova linha na tabela para novo preenchimento
        If Not rs.EOF Then .rows.Add
    End With
Loop
rs.Close
Set rs = Nothing
'---------------------------------------------------------
'Salva o documento preenchido no mesmo local do aplicativo
'----------------------------------------------------------
strLocal = CurrentProject.Path & "\Doc-Lista-" & 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

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Segurança máxima, usando o OPEN

Vídeo - Aprenda sobre filtragens

Uma ajuda para quem está começando um negócio ou um projeto

Vídeo - Programação de relatórios - Parte 1

Desabilitando a faixa(ribbon) superior do Access

Adquira o kit UsandoAccess e aprenda em alta velocidade

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |