VBA para word

Segue na descrição do vídeo o código utilizado no vídeo.

Peço que aguardem, novidades !!!!

Não deixe de inscrever no canal.

Sub escrevendo_word()
'''' Alessandro Paes Leme
' Convido a conhecer o meu canal no YouTube

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight ' Direita

Selection.Font.Name = "Colibri"
Selection.Font.Size = 12
Selection.Font.Bold = True
Selection.Font.Italic = False

Selection.TypeText Text:=" Rio de Janeiro - RJ," & Format(Day(Date), "00") & " de " & Format(Date, "mmmm") & " de " & Format(Date, "yyyy")

Selection.MoveDown Unit:=wdLine, Count:=1.5

With Selection

.TypeParagraph

.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft ' Esquerda
.Font.Size = 12
.Font.Name = "Arial"
.Font.Bold = True ' Sim desejo que seja em negrito
.Font.Italic = False ' não desejo
.TypeText "Cliente:" & vbCrLf

.TypeParagraph
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Size = 10
.Font.Name = "Colibri"
.Font.Bold = False ' Sim desejo que seja em negrito
.Font.Italic = False ' não desejo
.TypeText "--CONTRATO DE COMPRA E VENDA--" & vbCrLf

.TypeParagraph
.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
.Font.Size = 10
.Font.Name = "algerian"
.Font.Bold = False ' Sim desejo que seja em negrito
.Font.Italic = False ' não desejo
.TypeText "Num dia de verão, estava na praia, observando duas crianças brincando na areia. Elas trabalhavam muito, construindo um castelo de areia, com torres, passarelas e passagens internas. Quando estavam quase acabando, veio uma onda e destruiu tudo, reduzindo o castelo a um monte de areia e espuma. Achei que, depois de tanto esforço e cuidado, as crianças cairiam no choro. Mas tive uma surpresa. Em vez de chorar, correram pela praia, fugindo da água, rindo de mãos dadas e começaram a construir outro castelo." & vbCrLf

.TypeParagraph
.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft ' Esquerda
.Font.Size = 12
.Font.Name = "Arial"
.Font.Bold = True ' Sim desejo que seja em negrito
.Font.Italic = False ' não desejo
.TypeText "Não esqueça de conhecer o canal no Youtube Alessandro Paes Leme:" & vbCrLf
.TypeParagraph

End With

End Sub

[telmofariafonseca]

E engraçado que quando estou programando em C++, não dá erro de compilação. Até dá. Mais eu consigo resolver. Vou tentar no outro computador.