Excel Exportar dados do excel para o Word

josequali · 1 de maio de 2021

Boa tarde! Alguém poderia me ajudar, tenho um código que permiti enviar as informações da minha planilha do excel para um novo documento word, entretanto não consigo enviar da forma que desejo, o relatório acaba deformando quando tento inserir as informações da coluna B.

Atualmente uso esse comando:

Sub gerarleatorio()

MsgBox "Gerando relatório!", vbInformation, "Aguarde"

Worksheets("Relatorio").Activate

Dim objWord 'o aplicativo do word
Dim objDoc 'o documento word em si
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 'criar um novo documento word

objWord.Visible = True 'tornar word visivel

Set objSelection = objWord.Selection 'ver referencia do cursor do mouse

For Each cell In Range("A1:A23")
text = text & cell.Value & Chr(13) 'o chr(13) serve para dar enter entre as linhas do excel
Next cell
objSelection.Typetext (text) 'digitar o texto


End Sub

Para pegar a informação da coluna B eu altero de ("A1:A23") para ("A1:B23"), mas o relatório desconfigura todo.

A segunda situação é a data, eu preciso que ela seja transferida por extenso, mas quando envio para o word ela fica no formato padrão de data (dd,mm,yyyy).

A terceira situação é que tenho linha que servem para assinatura, mas elas não são enviadas e nem os nomes abaixo delas ficam em negrito.

Vide imagem abaixo:

OBS: obrigatoriamente para o que preciso todas vez que eu gerar um relatório tem que ser um novo doc word, e não um modelo para substituição de dados, como mala direita ou comando que procurem palavras e substituam as informações no documento do word.

Segue abaixo o vídeo que me baseei para adaptar o código. Estou também anexando como o relatório está sendo gerado (relatório errado) e como eu preciso que fique (relatório correto).

Desde já, agradeço a ajuda e disponibilidade de todos

Relatorio word.rar

josequali · 1 de maio de 2021

Já consigo inserir a data usando

Text = Format (Date, "longe Date")

E o da linha também consegui resolver, e o nome da empresa resolvi concatenando "Relatório referente" com o nome da empresa (textbox).

Só preciso mesmo agora mudar a fonte (tamanho, tipo e negrito) e alinhar a "recebido por" e a "data" a esquerda quando enviar para o word, assim como a data na parte superior a esquerda também.