This tutorial is about the table styles option that is available in Word 2013 & 2010. Set objTable = below are some of the tips which will quite handy when you are working with tables in Word 2013 & 2010 Change the table style in Word Not only is it ineffecient (the screen has to be redrawn constantly) it is also error prone as the selection could be changed by the user to something you're not expecting. You should also get into the habit of avoiding use of the Selection object, both in Word and Excel. Your code to add a table fails because you are adding the table into objRange which you defined as the entire document.

ObjSelection.Collapse WdCollapseDirection.wdCollapseEndīefore the Tables.Add line of code, but that didn't help. I put in a stop points after my heading and normal text are added and they appear in the word document fine.(screenshot below)īut as soon as the code reaches the Tables.Add bit, all my text disappears and the document has nothing but the table. objRange, 10, 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitWindow ObjSelection.Style = objDoc.Styles('Normal') ObjSelection.Style = objDoc.Styles('Heading 1') Set objWord = CreateObject('Word.Application') This is my code: Dim objWord As Word.Application I can add the table in fine, but for some reason it deletes the lines of text that I added in the first place. The next bit though to add a table is causing issues.

So far I've got excel to create the word document and add a few lines of text without any issue. Which is going to read in some data and the create a word document based on that data.

How to insert a table in word 2013