[Resolvido]Dúvidas exportar registro da tabela access para uma tabela no word

Prezados,
Estou com dificuldades na exportação de dados registrados na tabela Pagamento do access para inserir no bookmarks do word.
Conforme o código abaixo, após selecionar o Bookmarks na tabela word consigo inserir uma linha acima da tabela, o Bookmarks é substituido pelo registro da tabela access, até aí blz
Depois o loop retorna para o mesmo lugar do Bookmarks onde já tinha inserido o registro e sobreescre outro registro, no mesmo lugar.

A minha intenção é inserir cada registro da tabela access no word em uma tabela tbm, mas sem margens vísiveis.

Ex dos registro na tabela do access
Parcela 1/3 R$ 100
Parcela 2/3 R$ 100
Parcela 3/3 R$ 100



**********************************************************************************************************

    dbP = "SELECT * from tblPagamento WHERE Dívida LIKE '*" & Me.Código & "*' ORDER BY Dívida"
   Set rsP = CurrentDb.OpenRecordset(dbP)
   
   .ActiveDocument.Bookmarks("PARCELAMENTODIVIDA").SELECT: .selection.Rows.Add

Do While Not rsP.EOF
   .ActiveDocument.Tables(1).Cell(i, 1).Range.Text = rsP!Parcela
                                                     
   i = i + 1
   
   rsP.MoveNext
   
Loop


**********************************************************************************************************

Alguém para ajudar?

Olá

Penso ser algo assim, já não faço isso há mais de 15 anos...

Código:

Private Sub cmdTeste_Click()
Dim y As Integer
Dim x As Integer
Dim MyWord As Object
Dim dbP As DAO.Recordset

Set MyWord = CreateObject("Word.Application")
Set oDoc = MyWord.Documents.Open("c:\temp\teste.docx")
Set rsP = CurrentDb.OpenRecordset("SELECT * from tblPagamento WHERE Dívida LIKE '*" & Me.Código & "*' ORDER BY Dívida")

With MyWord
.Visible = True
.Activate
 
'conta quantos registros encontrou
y = rsP.RecordCount
'move para o ultimo registro e depois para a primeiro
    rsP.MoveLast
    rsP.MoveFirst
'faz o loop no documento
    For x = 1 To y
      .ActiveDocument.Bookmarks("PARCELAMENTODIVIDA").Select: .Selection.Rows.Add
      .ActiveDocument.Tables(1).Cell(x, 1).Range.Text = rsP!Parcela
      rsP.MoveNext
    Next x
End With
End Sub

Apresenta o seguinte erro:
erro em tempo de execução "5941"
O membro solicitado da coleção não existe.

Ao depurar, essa é a instrução do erro.
: .Selection.Rows.Add

logo após do for:
.ActiveDocument.Bookmarks("PARCELAMENTODIVIDA").Select: .Selection.Rows.Add

no modelo de contrato do word que está sendo utilizado, o Bookmarks("PARCELAMENTODIVIDA") está na 1 linha e 1 coluna de 3.
Esta tabelo do word é a que eu desejo inserir os registros do bd, na qual consta [Parcela] [Valor da Parcela] [Vencimento] e mais algumas colunas, porém eu quero inserir apenas as citadas. conforme foto em anexo "tblPagamento"
https://i.servimg.com/u/f49/20/49/21/11/tblpag11.jpg

Pode por favor anexar a folha de word para testar ?

Pode zipar e anexar.

Você indicou o caminho correto do seu ficheiro ?

Set oDoc = MyWord.Documents.Open("c:\temp\teste.docx")

Sim!
referenciei o arquivo do direito. todos os outros Bookmarks foram corretamente preenchidos. Anexo o modelo do contrato.

Olá

Cole no seu botão, mas altere apenas e somente o caminho do ficheiro;

Código:

Dim y As Integer
Dim x As Integer
Dim MyWord As Object
Dim dbP As DAO.Recordset

Set MyWord = CreateObject("Word.Application")
Set oDoc = MyWord.Documents.Open("c:\temp\Contrato_Dividas.docx")
Set rsP = CurrentDb.OpenRecordset("SELECT * from tblPagamento WHERE Código = '" & Me.Código.Value & "' ORDER BY Parcela")

'se não encontrar registros, morre aqui
    If rsP.RecordCount = 0 Then Exit Sub

With MyWord
.Visible = True
.Activate
 
'conta quantos registros encontrou
y = rsP.RecordCount
'move para o ultimo registro e depois para a primeiro
    rsP.MoveLast
    rsP.MoveFirst
'faz o loop no documento
    For x = 1 To y
    .ActiveDocument.Tables(1).Rows.Add
      .ActiveDocument.Tables(1).Cell(x + 1, 1).Range.Text = rsP!Parcela
      .ActiveDocument.Tables(1).Cell(x + 1, 2).Range.Text = Format(rsP![Valor da Parcela], "R$ #,###.00")
      .ActiveDocument.Tables(1).Cell(x + 1, 3).Range.Text = rsP!Vencimento
      rsP.MoveNext
    Next x
End With

funcionou perfeitamente.
Muito obrigado!

Obrigado pelo retorno o forum agradece.