{"id":67143,"date":"2006-06-09T14:32:00","date_gmt":"2006-06-09T14:32:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2006\/06\/09\/how-can-i-add-multiple-tables-to-a-word-document\/"},"modified":"2006-06-09T14:32:00","modified_gmt":"2006-06-09T14:32:00","slug":"how-can-i-add-multiple-tables-to-a-word-document","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-add-multiple-tables-to-a-word-document\/","title":{"rendered":"How Can I Add Multiple Tables to a Word Document?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I add multiple tables to a Word document?

— KH<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, KH. You know, if the Scripting Guys have one failing (hey, we said if<\/I>) it\u2019s this: we\u2019re simple guys with simple tastes. Create a Microsoft Word document with multiple tables? No, sir; that\u2019s not for us, not at all. One table per document is plenty, thank you very much. <\/P>\n

Of course, we do<\/I> realize that there are a lot of wild and crazy people out there, daredevils willing to try just about anything, up to and including adding multiple tables to a single Word document. With those people in mind, we tossed together a sample script that adds two<\/I> tables to a Word document. Use it at your own risk, KH:<\/P>

Const END_OF_STORY = 6<\/p>\n
Set objWord = CreateObject(“Word.Application”)\nobjWord.Visible = True<\/p>\n
Set objDoc = objWord.Documents.Add()\nSet objSelection = objWord.Selection<\/p>\n
objSelection.TypeText “Table 1”\nobjSelection.TypeParagraph()<\/p>\n
Set objRange = objSelection.Range\nobjDoc.Tables.Add objRange, 1, 2\nSet objTable = objDoc.Tables(1)<\/p>\n
objTable.Cell(1, 1).Range.Text = “This is cell 1.”\nobjTable.Cell(1, 2).Range.Text = “This is cell 2.”\nobjSelection.EndKey END_OF_STORY\nobjSelection.TypeParagraph()<\/p>\n
objSelection.TypeText “Table 2”\nobjSelection.TypeParagraph()<\/p>\n
Set objRange = objSelection.Range\nobjDoc.Tables.Add objRange, 1, 2\nSet objTable = objDoc.Tables(2)<\/p>\n
objTable.Cell(1, 1).Range.Text = “This is cell 1.”\nobjTable.Cell(1, 2).Range.Text = “This is cell 2.”<\/p>\n
objSelection.EndKey END_OF_STORY\nobjSelection.TypeParagraph()\n<\/PRE>\n
In the relatively small amount of time we spent on this (too much excitement angries up the blood, you know) we decided that the key to adding multiple tables to a single document was this: after adding the first table you need to move the cursor to the end of the document, type a paragraph return, and then<\/I> add the second table. (We weren\u2019t brave enough to try adding a third<\/I> table, but it should work the same way.) That\u2019s the approach we took; let\u2019s see how it actually works.<\/P>\n
In the script itself we start off by creating a constant named END_OF_STORY; as the name implies, we\u2019ll use this constant to move the cursor to the end of the document. After defining the constant we create an instance of the Word.Application<\/B> object and set the Visible<\/B> property to True; that gives us a running instance of Word that we can see onscreen. We use the Add<\/B> method to add a new, blank document, and then position the cursor at the beginning of that document simply by creating an instance of the Word Selection<\/B> object:<\/P>
Set objSelection = objWord.Selection\n<\/PRE>\n
Good guess: it\u2019s now<\/I> that the fun begins. Our first task is to create a table header; to do that we simply type the phrase Table 1<\/I> followed by a paragraph return:<\/P>
objSelection.TypeText “Table 1”\nobjSelection.TypeParagraph()\n<\/PRE>\n
At this point we\u2019re ready to insert our first table. We aren\u2019t going to explain all of the following code in detail; if you\u2019ve never added a table to a Word document you might want to take a look at the Office Space<\/I> article Creating Tables in Microsoft Word<\/B><\/A>. For now we\u2019ll simply note that we begin by creating an instance of the Range<\/B> object (with the range consisting of the current cursor location). After that we add a table with 1 row and 2 columns, and then create an object reference (objTable) to that table (which, because it\u2019s the first table in the document, is given the index number 1). That all sounds complicated, but it requires only three little lines of code:<\/P>
Set objRange = objSelection.Range\nobjDoc.Tables.Add objRange, 1, 2\nSet objTable = objDoc.Tables(1)\n<\/PRE>\n
And once we have a table we can then use these lines of code to type a little bit of text in each of the two table cells:<\/P>
objTable.Cell(1, 1).Range.Text = “This is cell 1.”\nobjTable.Cell(1, 2).Range.Text = “This is cell 2.”\n<\/PRE>\n
All that effort gives us a Word document that looks like this:<\/P>\"Hey, \n

We agree: that should be enough for anyone<\/I>. If it\u2019s not, though, then here\u2019s the secret to adding a second table to the document:<\/P>
objSelection.EndKey END_OF_STORY\nobjSelection.TypeParagraph()\n<\/PRE>\n
Granted it doesn\u2019t look very impressive, but it works. All we\u2019re doing here is calling the EndKey<\/B> method to move the cursor to a new spot in the document. Which spot? The very end of the document, as indicated by the constant END_OF_STORY. We then use the TypeParagraph()<\/B> method to simulate pressing the ENTER key on the keyboard. That simply positions the cursor on a new, blank line, enabling us to add a new table header and, following that, a new table.<\/P>\n
In fact, that\u2019s what this block of code does: it adds a header for Table 2<\/I>, and then inserts the second table in the document:<\/P>
objSelection.TypeText “Table 2”\nobjSelection.TypeParagraph()<\/p>\n
Set objRange = objSelection.Range\nobjDoc.Tables.Add objRange, 1, 2\nSet objTable = objDoc.Tables(2)<\/p>\n
objTable.Cell(1, 1).Range.Text = “This is cell 1.”\nobjTable.Cell(1, 2).Range.Text = “This is cell 2.”\n<\/PRE>\n
About the only thing to take note of here is this line of code:<\/P>
Set objTable = objDoc.Tables(2)\n<\/PRE>\n
As you can see, this time around we\u2019re creating an object reference that points to a table with the index number 2. Why? Because this is the second table in the document. If we add a third table, we have to create an object reference to a table with an index number of 3: Set objTable = objDoc.Tables(3)<\/B>. And if we add a fourth table – well, let\u2019s not even go there<\/I>, if you know what we mean. But you get the idea.<\/P>\n
After we add the new table and type a little text into the table cells we once again position the cursor at the end of the document:<\/P>
objSelection.EndKey END_OF_STORY\nobjSelection.TypeParagraph()\n<\/PRE>\n
And what does all that give us? This:<\/P>\"Hey, \n

Which we believe is exactly what you were hoping to get.<\/P>\n\n<\/THEAD>\n\n\n
\n
Disclaimer<\/B>. In the interests of full disclosure we should note that we did not actually test this multiple-table script ourselves; instead, we had our stunt doubles test it for us. Not that we were scared<\/I> or anything, but \u2026.<\/P><\/TD><\/TR><\/TBODY><\/TABLE><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I add multiple tables to a Word document?— KH Hey, KH. You know, if the Scripting Guys have one failing (hey, we said if) it\u2019s this: we\u2019re simple guys with simple tastes. Create a Microsoft Word document with multiple tables? No, sir; that\u2019s not for us, not at all. One […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[84,49,3,5,395],"class_list":["post-67143","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-word","tag-office","tag-scripting-guy","tag-vbscript","tag-word-application"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I add multiple tables to a Word document?— KH Hey, KH. You know, if the Scripting Guys have one failing (hey, we said if) it\u2019s this: we\u2019re simple guys with simple tastes. Create a Microsoft Word document with multiple tables? No, sir; that\u2019s not for us, not at all. One […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67143","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=67143"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67143\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=67143"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=67143"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=67143"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}