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
Пікірлер: 14
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!
Thank you so much
@greggowaffles
Жыл бұрын
No problem!
مرسی
@greggowaffles
Жыл бұрын
خواهش میکنم
Thanks for a educative lesson .... how can I get auto serial number in word table when I extract data from excelsheet ??
Thanks. Cant you get the _named_ table from excel and paste it to word?
Can you use the same method to make an Equation? If yes, then how can you do it?
How can we add the table in specific place in a word template ?
How to filter out with multiple criteria for a column, could you please explain me
@greggowaffles
Жыл бұрын
Hope this helps! kzread.info/dash/bejne/qXWa0qtueb3Rps4.html
@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