VBA – Transferir dados do Excel para o Word

Mais uma inspirada no fórum. Com vocês, Excel e Word trabalhando juntos! Algo assim…

#VBA
#Excel
#Word

O código utilizado:

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

Acesse também

BLOG ► https://www.tomasvasquez.com.br/blog/
FÓRUM ► https://www.tomasvasquez.com.br/forum/
CURSO ONLINE DE C# ► https://www.tomasvasquez.com.br/cursocsharp

Aqui também!

FACEBOOK ► https://www.facebook.com/tomasvaquezsites
TWITTER ► https://twitter.com/tomamais
GOOGLE+ ► https://plus.google.com/+TomasvasquezBr/

Roteiro, apresentação, edição, etc, etc ► eu mesmo 🙂

Comentários

comentários

Deixe uma resposta