Bom dia para todos.

Estou tentando mesclar um documento Word com os dados da uma ListView utilizando do seguinte código:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim UsuarioAtual As String = Environment.UserName
        ObjWord = New Word.Application
        ObjWord.Documents.Open('C:\Documents and Settings\' & UsuarioAtual & '\Documents\Modelo.docx')
        Call SubstituiVariavel('@Titulo', TxtTitulo.Text)
        For Each item As ListViewItem In lstDados.Items
            Call SubstituiVariavel('@Coluna1', item.SubItems(1).Text)
            Call SubstituiVariavel('@Coluna2', item.SubItems(2).Text)
            Call SubstituiVariavel('@Coluna3', item.SubItems(3).Text)
        Next
        ObjWord.ActiveDocument.SaveAs('C:\Documents and Settings\' & UsuarioAtual & '\Documents\Lista.docx')
        MsgBox('Documento gerado com sucesso!')
        ObjWord = Nothing
    End Sub

Problema: O código mescla apenas o título e o primeiro registro da ListView.

Que posso fazer para passar todos os registros da ListView para o documento Word?

Agradeço qualquer ajuda!


Wencesláu

Bom dia ELMO e muito grato por sua colaboração.
Todavia, o projeto do Macoratti executa a mesclagem de somente um registro do DataSet, no caso: o registro selecionado.
O meu objetivo é mesclar todos os registros.
Já fiz um teste passando os dados da ListView para um DataSet, mas não obtive êxito, pois sempre mescla somente o registro selecionado.
Em 2015, um tópico do KURTGU abordou esse tema aqui no Fórum, mas eu não consegui chegar aos finalmente.
De qualquer forma fico-lhe muito agradecido.

Wencesláu