Excel VBA Macro: Create Word Document & Add Table (Static Range)

Excel VBA Macro: Create Word Document & Add Table (Static Range). In this video, we go over how to add a table with a set range to a word document using excel. We also enable borders in the table and change the background color of the table with our code.
Code:
Sub add_table_2_word()
Dim objWord
Dim objDoc
Dim objSelection
Dim i As Integer
Dim j As Integer
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objSelection = objWord.Selection
objWord.Visible = True
objWord.Activate
Set CountryTable = objDoc.Tables.Add(objSelection.Range, 6, 3)
With CountryTable
With .Borders
.enable = True
.outsidecolor = RGB(0, 0, 0)
.insidecolor = RGB(0, 0, 0)
End With
.Rows(1).shading.backgroundpatterncolor = RGB(51, 204, 51)
For i = 1 To 6
For j = 1 To 3
.cell(i, j).Range.InsertAfter ThisWorkbook.Sheets("Sheet1").Cells(i, j).Text
Next j
Next i
End With
End Sub
#ExcelVBA #ExcelMacro

[@MohAboAbdo]

Thank you so much

[@greggowaffles]

No problem!

[@Lyriks_]

Don't forget to close the word file once macro gets executed otherwise(for me at least) it causes a bug ! Good job Greggo

[@greggowaffles]

Thanks!

[@alializadeh8195]

مرسی

[@greggowaffles]

خواهش میکنم

[@stanTrX]

Thanks. Cant you get the _named_ table from excel and paste it to word?

[@sallu21m]

Thanks for a educative lesson .... how can I get auto serial number in word table when I extract data from excelsheet ??

[@johanmilterjakobsen1627]

Can you use the same method to make an Equation? If yes, then how can you do it?

[@manoharbholankar1867]

How can we add the table in specific place in a word template ?

[@vikrampurohit3033]

How to filter out with multiple criteria for a column, could you please explain me

[@greggowaffles]

Hope this helps! kzbin.info/www/bejne/rXLJoXxrfr-erM0

[@vikrampurohit3033]

@@greggowaffles thanks , I saw this video, the problem here is, I want to filter out with not criteria and need to delete all other rows and then need to paste it in a new sheet

[@vikrampurohit3033]

Can we connect for 5 mins please