How To Copy A Single Excel Table To Word Using VBA

This is a continuation in our series where we take different Excel objects and copy them from Excel to Word using VBA. In this video, we will copy a single Excel table (list object) to a new Word document.
Video Resources:
--------------------------------------------------
Resource: GitHub File
Link: github.com/areed1192/sigma_co...
Resources:
--------------------------------------------------
Facebook Page: / codingsigma
Facebook Group: / sigmacoding
GitHub Sigma Coding: github.com/areed1192/sigma_co...
Support Sigma Coding:
--------------------------------------------------
Patreon: / sigmacoding
Amazon Associates: amzn.to/3bsTI5P **
Related Topics:
--------------------------------------------------
Title: How To Copy Multiple Excel Charts To Word Using VBA
Link: • How To Copy Multiple E...
Title: How To Copy A Single Excel Chart To Word Using VBA
Link: • How To Copy A Single E...
Title: How To Copy Multiple Excel Ranges To Word Using VBA
Link: • How To Copy Multiple E...
Title: How To Copy A Single Excel Range To Word Using VBA
Link: • How To Copy A Single E...
Title: How To Copy Multiple Excel Tables To Word Using VBA
Link: • How To Copy Multiple E...
Title: How To Copy A Single Excel Table To Word Using VBA
Link: • How To Copy A Single E...
**Amazon Associates Disclosure:
--------------------------------------------------
I am a participant in the Amazon Services LLC Associates Program, an affiliate advertising program designed to provide a means for sites to earn advertising fees by advertising and linking to Amazon.com. One of the ways I support the channel is by using Amazon Associates to earn fees on purchases you make. That means when you use the link above, it will track any purchases made from that link and give a small portion of it to the Sigma Coding. I love this approach because it allows you to do what you're already doing (shopping) but also helps support the channels you care about. Also, it makes it where I can invest that revenue to help improve and grow the channel.
Tags:
--------------------------------------------------
#Word #VBA #ExcelTable

[@tejastakalkar7924]

I don't know why are smart guys like you underrated

[@avijitnandy6662]

This is awesome. Lots of good luck for this channel.

[@danjl1]

Alex, Thanks for the video, clear and very understandable!

[@andreslgv]

This was exactly what I was looking for. Thanks!

[@leucanh6274]

The tutorial is awesome, but it still have one problem. In most case, we need to copy the table into a certain place in a word template (like an invoice word template). I haven't found a tutorial for that on youtube. Hardly do we need a blank word document with just only a table.

[@Ankit-ps7sf]

Thanks for your help.

[@eddie6612]

Great vid!

[@alainattar9227]

This was so well explained, it made copying a table to word fairly straightforward. Could you explain how to paste that single table into a bookmark in Word, instead of having it pasted arbitrarily on top of the page. TYSM

[@NetMistro]

Very clear explanation. Thank you

[@SigmaCoding]

Glad it was helpful!

[@sucramsucram3558]

Thanks that was a really clear video.

[@SigmaCoding]

Glad you enjoyed it!

[@srivatsagrandhi]

Thanks, if i have to create multiple letters and have different table to each letter.. How can i insert those tables in the letters?

[@eddie6612]

Hey, how would I create a front cover page with date etc and paste the table on the second page?

[@SigmaCoding]

You made me think on this one! However, here is a simple approach that seems to work. Sub WordToTable() 'Define variables Dim WrdApp As Word.Application Dim WrdDoc As Word.Document Dim WrdTemp As Word.Template Dim WrdTemps As Word.Templates Dim ExcTbl As ListObject 'Grab the Table Set ExcTbl = ActiveSheet.ListObjects("Table1") 'Open Word and Add the Doc Set WrdApp = New Word.Application WrdApp.Visible = True 'Add a document Set WrdDoc = WrdApp.Documents.Add() 'Define the Word app Templates Set WrdTemps = WrdApp.Templates 'Load the Templates WrdTemps.LoadBuildingBlocks ' Grab the building block templates, in this case just default to the first. Set WrdTemp = WrdTemps.Item(1) 'Add the template you want, in this case use the name of the template which is Austin. Refer to the insert Cover Page 'section to see all the template names. Define a place to put the cover page. WrdTemp.BuildingBlockEntries("Austin").Insert Where:=WrdApp.Selection.Range, RichText:=True 'Insert a new page. WrdApp.Selection.InsertNewPage 'Go to that next page. WrdApp.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext 'Copy the table ExcTbl.Range.Copy 'Paste it to the selection WrdApp.Selection.Paste End Sub