Excel x Word

[jjm]

Boa tarde

tenho no excel uma planilha com quatro colunas, e diversos registros, um embaixo do outro, no formato
cnpj-nome;
cnpj-nome;
cnpj-nome;

Como faço para transferir esses registros para o word, de modo que cada registro fique um na frente do outro?
cnpj-nome;cnpj-nome;cnpj-nome;

Obrigado

[webmaster]

Assumindo que os textos estejam nas células entre A1 e A3, esse código resolve:

Código: Selecionar todos

Function EscreverNoWord()

    Dim objWord, objDoc, objSelection, text As String
    
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add
    
    objWord.Visible = True
    
    Set objSelection = objWord.Selection
    
    For Each cell In Range("A1:A5")
        text = text & cell.Value & ";"
    Next cell
    
    objSelection.TypeText (text)
End Function

Referências: https://excel-macro.tutorialhorizon.com ... -document/