Se for necessário copiar e colar dados de várias planilhas do Excel no MS Word, você deve ler este artigo. No Excel, não existe um recurso que permita converter os dados da pasta de trabalho do Excel em um arquivo do Word. O aplicativo Word não pode abrir arquivos do Excel diretamente. No entanto, os dados do Excel podem ser copiados e colados no Word e depois salvos como um documento do Word.
Todos nós transferimos dados do Excel para o Word manualmente, o que às vezes se torna tedioso quando se trata de executar as mesmas etapas muitas vezes em um dia; para evitar as etapas manuais, escreveremos o código VBA para fazer todas as etapas.
Neste artigo, vamos nos concentrar em mover dados do Excel para documentos do Word. Vamos automatizar todo o procedimento via código VBA. Com o código de macro, você pode simplesmente copiar os dados em uma planilha de cada vez e, em seguida, o aplicativo do Word será iniciado automaticamente e o código VBA usará o comando colar para inserir os dados no arquivo doc.
Para obter o código; precisamos seguir as etapas abaixo para lançar o editor VB:
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Há uma etapa importante que você não deve perder
- Clique em Ferramentas para selecionar as referências
- Role para baixo até encontrar "Biblioteca de objetos do Microsoft Word 15.0"
- Certifique-se de marcar a caixa; consulte a imagem abaixo
- Copie o código abaixo no módulo padrão
Sub CopyWorksheetsToWord () Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet Application.ScreenUpdating = False Application.StatusBar = "Criando novo documento…" Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add For Each ws In ActiveWorkbook.Worksheets Application.StatusBar = "Copiando dados de" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter wdDoc.Paragraphs (wdDoc.Paragraphs .Count) .Range.Paste Application.CutCopyMode = False wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter If Not ws.Name = Worksheets (Worksheets.Count) .Name Then With wdDoc.Paragraphs (wdDoc.Paragraphs. Count) .Range .InsertParagraphBefore .Collapse Direction: = wdCollapseEnd .InsertBreak Tipo: = wdPageBreak End With End If Next ws Set ws = Nothing Application.StatusBar = "Limpando…" With wdApp.ActiveWindow If .View.SplitSpecial = wdPane Then. ActivePane.View.Type = wdNormalView Else .View.Type = wdNormalView End If End With Set wdDoc = Nothing wdApp.Visible = True Set wdApp = Nothing Application.StatusBar = False End Sub
Para testar o código, vamos inserir 2 folhas e adicionar números aleatórios. A seguir está o instantâneo de ambas as planilhas:
1ª Folha:-
2ª Folha:-
- Depois de configurar os dados nas planilhas; podemos executar a macro
- O aplicativo Word será iniciado imediatamente e os dados serão copiados de todas as planilhas para o Word; consulte o instantâneo abaixo
Se você acha que copiar os dados é uma tarefa, deve haver uma quebra de página entre os dados de cada planilha para que qualquer pessoa possa facilmente fazer a diferença entre os dados de cada planilha.
Os dados acima serão copiados de uma folha e, em seguida, o código VBA garantirá a adição de quebra de página entre as páginas.
Conclusão: Desta forma, podemos ajudar muitos usuários do Microsoft Office que pensam que converter dados de arquivos Excel em Word é um pouco complicado ou impossível. O código acima demonstrou como é fácil copiar e colar dados em um arquivo Word sem qualquer problema, desde várias planilhas do Excel para um arquivo Word doc.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail