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 🙂