Microsoft Office Excel :... Macros e VBA
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Do Excel pra Word

Ir para baixo

Do Excel pra Word Empty Do Excel pra Word

Mensagem  KDU Ter Fev 07, 2017 11:02 pm

Fala pessoal,

Hoje vou deixar uma dica para você que precisa copiar as informações de uma planilha e coloca-las no Word.

Vamos ao código;

Código:


Sub ColarNoWordeSalvar()

   Dim objWord
   Dim objDoc
   Dim objSelection

   txt = Range("a2").Value ' A informação que vai ser colada no Word

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Add

   objWord.Visible = True

   Set objSelection = objWord.Selection

   objSelection.TypeText (txt)

   objDoc.SaveAs (" coloque o endereço que vc deseja salvar o arquivo \  Nome do arquivo.docx")

End Sub

Dúvidas ou sugestões são bem vindas.

Valeu até a próxima.
KDU
KDU
Admin

Mensagens : 26
Data de inscrição : 17/08/2011
Idade : 43

https://excel.forumeiros.com

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos