Do Excel pra Word
Página 1 de 1
Do Excel pra Word
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;
Dúvidas ou sugestões são bem vindas.
Valeu até a próxima.
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.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|