Write Data from Excel to Word Document

Step 1 : Reference Microsoft word into Excel

Sub showdatatomsword()
Dim wrdApp As Word.Application
Dim wDoc As Word.Document

Set wrdApp = CreateObject("word.application")
wrdApp.Visible = True

Set wDoc = wrdApp.Documents.Add

wDoc.Content.InsertAfter Range("A1")


End Sub