Excel VBA Macro: Create Word Document (and Write with Excel)

Excel VBA Macro: Create Word Document (and Write with Excel). In this video, we go over how to use excel vba to open a new word doc and type text into the document. We go over how to type directly from a string in our code, and by using a string from a cell in an excel workbook.
Code:
Sub create_word_doc()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
With objWord
.Visible = True
.Activate
.Selection.typetext ("Hello World!")
.Selection.typeparagraph
.Selection.typetext (ThisWorkbook.Sheets("Sheet1").Cells(1, 1).Text)
End With
End Sub
#ExcelVBA #ExcelMacro

[@francesoutlaw7021]

Holy mother of God! This one works!!! All else failed!!! Thank you, Greg!

[@greggowaffles]

No problem! So happy to hear that!!

[@filipeempis5781]

Can you make a video on how to create a template word document and type the text present in a given excel cell to a specific place (specific paragraph, range of characters or specific textbox) in the word document: For instance, there is a excel sheet with with several fields (name, age, town..). The point is to creat a macro so that after you fill those fields in Excel, a word document is created with those same fields filled

[@Andrew-gr4nd]

Hey did you ever figure this out? If so any good resources?

[@francesoutlaw7021]

Subscribed, BTW! 😊

[@alializadeh8195]

Thanx

[@greggowaffles]

No prob!

[@haideraljubouri]

@@greggowaffles I have a really interesting project and would love your input on it my man.

[@darkzlord8436]

why mine got "user defined - not define" pls helppp

[@nixnews2267]

Please make a video of mailmerge..

[@greggowaffles]

I’ll do that soon. Thanks for sharing that idea!

[@francesoutlaw7021]

Mr. Greg, may I request you write a script to open an existing Word document, pweeeez! The Word document I need to open has an AutoExec macro to finalize the mail merge. The AutoExec macro works well that when I open the file, it is already merged with the data. Now, I just need to open that Word file from the Userform. Thanks in advance!

[@greggowaffles]

I’ve got a backlog of requests I need to catch up on but I can look into this soon!

[@francesoutlaw7021]

@@greggowaffles, Thanks a million! I'm in the second part of my project that is due mid-July, and that script will be used later toward the deadline. I'm currently re-formatting 44 500-page Word documents, inserting merge fields, and formulating conditional fields, which take time, too. That script is best to do after all the templates are done. So, no hurry! Thanks again! 👍👍👍

[@francesoutlaw7021]

@@greggowaffles, Hello! Never mind my question above. I figured it out myself with the help of two VBA posts I combined together. Here's the script (for reference if anyone needs it): Public Sub CheckBox1_Click() Dim WrdPara As Paragraph Dim ActDom As Document Set ActDom = ActiveDocument Set WrdPara = ActDom.Paragraphs(2) If (CheckBox1.Value = True) Then ActiveDocument.Bookmarks("Para2").Range.Font.Hidden = CheckBox1.Value Else ActiveDocument.Bookmarks("Para2").Range.Font.Hidden = False End If End Sub It works perfectly.

[@jeffiesconiers7798]

💘 𝘱𝘳𝘰𝘮𝘰𝘴𝘮