Do Excel pra Word

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Do Excel pra Word

Mensagem  KDU em 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.
avatar
KDU
Admin

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

http://excel.queroforum.net

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum