[Resolvido]Carta Cobrança - no Word com dados do Access

Prezados, por gentileza, gostaria de auxílio para possibilitar uma listagem de cobranças dentro da carta em formato do Word. O código abaixo funciona quando há apenas um registro de cobrança associado ao cliente. Os registros com os débitos de um cliente ficam num Sub_Form. Porém, gostaria de saber se é possível fazer algo com array / UBound para possibilitar a listagem dos débitos na mesma carta. Obrigada.

Private Sub cmdImprimir_Click()

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
   ArqModelo = "CartaCobrança.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("NumId").Select
   oApp.Selection.Text = (NumId)    
   oApp.ActiveDocument.Bookmarks("Cliente").Select
   oApp.Selection.Text = (Cliente)    
   oApp.ActiveDocument.Bookmarks("Vencimento").Select
   oApp.Selection.Text = Trim(CStr(Forms!Form_DadosClientes!Sub_Form_ClientesDebitos.Form!Vencimento))

oApp.ActiveDocument.Bookmarks("Valor").Select
   oApp.Selection.Text = Trim(CStr(Forms!Form_DadosClientes!Sub_Form_ClientesDebitos.Form!Valor))


   oApp.Application.Quit

   Set oApp = Nothing
End Sub


Resolvido com a adaptação do código do Criquio: https://www.maximoaccess.com/t7607-resolvidoexportacao-de-access-para-word.

Muito obrigada.

Resolvido com a adaptação do código do Criquio:

https://www.maximoaccess.com/t7607-resolvidoexportacao-de-access-para-word