Excel VBA Macro: Create Word Document & Add Table (Static Range)
4.1 هزار بار بازدید -
2 سال پیش
-
Excel VBA Macro: Create Word
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
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
2 سال پیش
در تاریخ 1401/07/14 منتشر شده
است.
4,159
بـار بازدید شده