[RESOLVIDO]gerar relatório do access para o word

Olá pessoal !

estou querendo solucionar uma das minhas dúvidas sobre relatório no word com access. o código é o seguinte: eu já havia pego aqui no fórum mesmo, tentei adaptar mas não consegui ainda:codigo daqui do forum



Private Sub Comando16_Click()

Código:

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

    'seta pasta do banco de dados
    PastaArq = CurrentProject.Path  = "E:\vba\relatorioword\relatorio.doc" ' esse é local do relatorio

    'Indicar nome do arquivo
    'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
    ArqModelo = "relatorio.doc"
        
    ' 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("id").Select
    oApp.Selection.Text = (id)
    oApp.ActiveDocument.Bookmarks("codigo").Select
    oApp.Selection.Text = (codigo)


    oApp.Application.Quit

    Set oApp = Nothing


End Sub

bom!

eu ja coloquei o indicador la no doc do word. mas estou tentando tirar dados de uma tabela para gerar o relatorio. Alguem pode da uma luz?

encontrei um excelente exemplo do Mestre Criquio, irei adapta-lo. caso eu não retorne é pq ja foi resolvido desde já e a solução é essa aqui:

essa é do mestre Criquio