Function EscreverNoWord()
    Dim objWord 'o aplicativo Microsoft Word
    Dim objDoc 'o documento do word em si (doc ou docx)
    Dim objSelection 'o cursor de operações
    Dim text As String
 
    Set objWord = CreateObject("Word.Application") ' coloca o word na memória
    Set objDoc = objWord.Documents.Add ' Word, crie um novo documento em branco
 
    objWord.Visible = True ' Word, mostre sua cara
 
    Set objSelection = objWord.Selection 'me dê a referência do cursor do mouse
 
    For Each cell In Range("A1:A6")
        text = text & cell.Value & Chr(13)
    Next cell
 
    objSelection.TypeText (text) 'Digitar texto
End Function

Function EscreverNoWord() Dim objWord 'o aplicativo Microsoft Word Dim objDoc 'o documento do word em si (doc ou docx) Dim objSelection 'o cursor de operações Dim text As String Set objWord = CreateObject("Word.Application") ' coloca o word na memória Set objDoc = objWord.Documents.Add ' Word, crie um novo documento em branco objWord.Visible = True ' Word, mostre sua cara Set objSelection = objWord.Selection 'me dê a referência do cursor do mouse For Each cell In Range("A1:A6") text = text & cell.Value & Chr(13) Next cell objSelection.TypeText (text) 'Digitar texto End Function