VBA: Como voce escreve texto formatado a partir do excel para o word?

Exemplo de código a seguir será apreciado:

Eu quero usar o VBA para criar um novo documento do word com o nome do arquivo e caminho do arquivo de minha escolha, escreva "Olá mundo!" na primeira página, centralizado e em Arial tamanho 18 negrito sublinhado. Então eu quero adicionar uma quebra de página e escrever "Adeus mundo!" Justificado em Times New Roman tamanho 12 itálico.

Obrigado!

Resposta

Aqui você vai... me levou alguns minutos para ver se entendi. Insira o código para o módulo de macro do arquivo Excel e ter o botão de comando chamar esse procedimento diretamente, ou algum outro método. O código requer que o projeto VBA do Excel tem uma referência à biblioteca de objeto do Microsoft Word. Eu criei isso no Office 2003 - que deve funcionar com versões anteriores.

Sub CreateWordDoc()

' exige a referência à biblioteca de objeto do Word

Dim wdApp como Word. Application

Dim wdDoc como Word.Document

Definir wdApp = CreateObject _

("Word. Application")

wdApp.Visible = True

Definir wdDoc = wdApp.Documents.Add

Com wdDoc.Content

.InsertParagraphBefore

.InsertBefore "Olá mundo!"

.Direção do colapso: = wdCollapseEnd

.ParagraphFormat.Alignment = _

wdAlignParagraphLeft

.Font = "Times New Roman"

.Bold = False

.Underline = False

.Italic = True

.Font = 12

.InsertAfter "Adeus mundo!"

.InsertParagraphAfter

Terminar com

Com wdDoc.Range (início: = 0, fim: = 12)

.Negrito = True

.ParagraphFormat.Alignment = _

wdAlignParagraphCenter

.Font = "Arial"

.Sublinhado = True

.Itálico = False

.Font = 18

Terminar com

wdDoc.Range _

(Início: = 13, final: = 13).InsertBreak

Definir wdDoc = Nothing

Definir wdApp = Nothing

End Sub

Comentários

Sílvia na 6 Mar 2023

Para escrever texto formatado do Excel para o Word usando VBA, você pode seguir um código como o seguinte:

Sub EscreverNoWord()
Dim wdApp As Object
Dim wdDoc As Object

Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add

With wdDoc.Content
.ParagraphFormat.Alignment = 1 'Centralizado
.Font.Name = "Arial"
.Font.Size = 18
.Font.Bold = True
.Font.Underline = True
.InsertAfter "Olá mundo!"
.InsertParagraphAfter
.ParagraphFormat.Alignment = 3 'Justificado
.Font.Name = "Times New Roman"
.Font.Size = 12
.Font.Italic = True
.InsertAfter "Adeus mundo!"
End With

Set wdDoc = Nothing
Set wdApp = Nothing
End Sub

Espero que isso ajude!

Responder

Mais como isso

microsoft office > bold realce

Outras Respostas Populares

Usuários da rede social
Estas pessoas adicionaram comentários ou respostas recentemente

Topo da página