Excel VBA Macro: Create Word Doc & Change Text Style (Font, Size, Bold, Italicize, Underline, Color)

Excel VBA Macro: Create Word Doc & Change Text Style (Font, Size, Bold, Italicize, Underline, Color). In this video, we go over how to create a word document, add text, and change the appearance of the text with our code.
Code:
Sub change_font()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
With objDoc
objDoc.Styles.Add ("MyFontStyle")
With .Styles("MyFontStyle").Font
.Name = "Impact"
.Size = 30
.Bold = False
.Underline = False
.Italic = True
.textColor = RGB(31, 174, 225)
End With
End With
With objWord
.Selection.Style = objDoc.Styles("MyFontStyle")
.Visible = True
.Activate
.Selection.typetext ("Hello!!!!!!!!")
.Selection.typeparagraph
.Selection.typetext (ThisWorkbook.Sheets("Whatever").Cells(1, 1).Text)
End With
End Sub
#ExcelVBA #ExcelMacro

[@MohamedAboAbdo03]

Thank you so much

[@drewgossage8842]

Another great upload!

[@greggowaffles]

Glad you enjoy it!

[@jayal5550]

Nice work!!!

[@greggowaffles]

Thank you!!

[@assbr75]

Can this apply to another language? It is not active with Arabic. What is the solution? It means changing the font size and bold

[@ambrosesabbat9385]

Nice video, how can I align the text ?

[@sandeepmaheshwari1936]

I have a query.Can you help?

[@greggowaffles]

Hey. I’ll see what I can do