Use Excel VBA to add multiple tables to end of Word document

leniusc · Jul 11, 2008

ther; mso-font-pitch:variable; mso-font-signature:0 0 0 0 0 0;} @font-face {font-family:Calibri; panose-1:2 15 5 2 2 2 4 3 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:-1610611985 1073750139 0 0 159 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-unhide:no; mso-style-qformat:yes; mso-style-parent:""; margin-top:0in; margin-right:0in; margin-bottom:10.0pt; margin-left:0in; line-height:115%; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} p.MsoNoSpacing, li.MsoNoSpacing, div.MsoNoSpacing {mso-style-priority:1; mso-style-unhide:no; mso-style-qformat:yes; mso-style-parent:""; margin:0in; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} .MsoChpDefault {mso-style-type:export-only; mso-default-props:yes; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} .MsoPapDefault {mso-style-type:export-only; margin-bottom:10.0pt; line-height:115%;} @page Section1 {size:8.5in 11.0in; margin:1.0in 1.0in 1.0in 1.0in; mso-header-margin:.5in; mso-footer-margin:.5in; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style> I have an Excel spreadsheet of data that I would like to export into tables in a new word document.
The code below (without the marked section) does this, but I can’t figure out how to create a second table after the first one.
<o

> </o

>
Eventually I will use a For…Next loop to do this many times, but I’m trying to make the problem smaller by just making a second table.
<o

> </o

>
Thank you in advance for any help.
-Chris
<o

> </o

>
Sub CreateNewWordDoc()
' add a reference to the Word-library
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdTable As Word.Table
Dim xText
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add ' create a new document
Set wrdRange = wrdDoc.Range
wrdApp.Visible = True
'Create table
Set wrdTable = wrdDoc.Tables.Add(Range:=wrdRange, NumRows:=1, NumColumns:=2)
xText = Worksheets("Sheet1").[A1].Value
With wrdTable
With .Cell(1, 1).Range
.InsertAfter xText
End With
xText = Worksheets("Sheet1").[A2].Value
With .Cell(1, 2).Range
.InsertAfter xText
End With
End With
'--------------problematic section begins here?--------------
Set wrdTable = wrdDoc.Tables.Add(Range:=wrdRange, NumRows:=1, NumColumns:=2)
xText = Worksheets("Sheet1").[B1].Value
With wrdTable
With .Cell(1, 1).Range
.InsertAfter xText
End With
xText = Worksheets("Sheet1").[B2].Value
With .Cell(1, 2).Range
.InsertAfter xText
End With
End With
'----------------------------
'clean up
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
<o

> </o

>

Cindy Ellis · Feb 9, 2015

Hello kentran1, and Welcome to Mr Excel!
I don't have any experience with Excel for Mac, but some of the other MVP's have real expertise with it. I will ask one of them to take a look at your code and see if they can figure out the cause of the error message.

kentran73 · Feb 9, 2015

Cindy Ellis said:
Hello kentran1, and Welcome to Mr Excel!
I don't have any experience with Excel for Mac, but some of the other MVP's have real expertise with it. I will ask one of them to take a look at your code and see if they can figure out the cause of the error message.

Hi Cindy,
It works now! it doesn't work in debug mode. Thanks.
I have another question about Union. I don't know if i need to start the new thread or not.
I have the array of range
t=("A1:B5","D1:F5","K1:M5",....)
Is there anyway that i can do
Union(Union(Range(t(0)),Range(t(1))),Range(t(2)).....)

Thanks in advance for your help.
Ken

Cindy Ellis · Feb 9, 2015

Your best bet is to start a new thread.
I'm glad your other macro works now! Thanks for letting me know.

Use Excel VBA to add multiple tables to end of Word document

leniusc

New Member

Cindy Ellis

MrExcel MVP

Excel Facts

kentran73

New Member

Cindy Ellis

MrExcel MVP

Similar threads

Forum statistics

Share this page

Use Excel VBA to add multiple tables to end of Word document

leniusc

New Member

Cindy Ellis

MrExcel MVP

Excel Facts

kentran73

New Member

Cindy Ellis

MrExcel MVP

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock