Microsoft Word Table Object VBA Code example create nested table in word vba

Table

Microsoft Word VBA offers very powerful object called Table and a collection Tables as part of a Document Object. Table is very useful to populate account, time table, categorization of objects etc. Tables is a collection which can have many nested tables and can be iterated using for each loop. It allows developer to manipulate all the properties during development of a table in a document like formatting, rows, columns, borders, cells, range, size, width, height etc. Latest office release provides more robust and enrich properties to the table object.

Code example

Public Sub CreateTable()
    Dim oDoc As Document
    Set oDoc = ActiveDocument
    Dim oTable As Table
    Set oTable = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows:=3, NumColumns:=3)
    Set oTable = Nothing
End Sub

This code will create a table of 3×3 but table will not have borders and will not be visible on the document but you can see at the starting of document the table is inserted. To prove I have given it border so you can see the real output:

Let’s insert some values in table by extending existing code:

Code example

Public Sub CreateAndInsertValuesInTable()
    Dim oDoc As Document
    Set oDoc = ActiveDocument
    Dim oTable As Table
    Dim oCel As Cell
    Dim oCounter As Integer
    oCounter = 1
    Set oTable = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows:=3, NumColumns:=3)
    'Adding value in each cell
    For Each oCel In oTable.Range.Cells
        oCel.Range.InsertAfter "Cell number: " & oCounter
        oCounter = oCounter + 1
    Next oCel
    Set oTable = Nothing
End Sub

Output

Now let’s format the table in real beautiful colors and patterns:

Code example

Public Sub CreateTableAndFormat()
    Dim oDoc As Document
    Set oDoc = ActiveDocument
    Dim oTable As Table
    Dim oCel As Cell
    Dim oCounter As Integer
    oCounter = 1
    Set oTable = oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows:=3, NumColumns:=3)
    'Adding value in each cell
    For Each oCel In oTable.Range.Cells
        oCel.Range.InsertAfter "Cell number: " & oCounter
        oCounter = oCounter + 1
    Next oCel
    'Auto format table
    oTable.AutoFormat Format:=wdTableFormatColorful3, ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True
    Set oCel = Nothing
    Set oTable = Nothing
End Sub

Output

Iterate tables

Public Sub IteratingAllTablesInActiveDoc()
    Dim oDoc As Document
    Set oDoc = ActiveDocument
    Dim oTable As Table
    'Avialbe tables in active document
    Debug.Print "Total tables in Active Document : " & oDoc.Tables.Count
    For Each oTable In oDoc.Tables
        'Do whatever you want here
    Next oTable
	Set oTable=Nothing
End Sub

Text to table

Sub ConvertExistingTextToTable()
	With Documents.Add.Content
		.InsertBefore "one" & vbTab & "two" & vbTab & "three" & vbCr
		.ConvertToTable Separator:=Chr(9), NumRows:=1, NumColumns:=3
	End With
End Sub

Nested table

Another challenge of reading a table which is created or available inside a table. Microsoft Word supports nested table concept but this scenario a bit different and challenging to the developer where he may need to write code to trap a table available inside Cell.

Code example

Public Sub ReadNestedTableWithinCell()
    Dim parentTable As Table
    Dim childTable As Table
    Dim oCell As Cell
    'Set Parent Table object
    Set parentTable = ActiveDocument.Tables(1)
    'Set Cell Reference of parent table of row 2 and cell 1 where nested table is
    Set oCell = parentTable.Rows(2).Cells(1)
    'Check if cell contains a table
    If oCell.Tables.Count > 0 Then
        'Get Child Table available inside cell
        Set childTable = oCell.Tables(1)
		childTable.Select
    End If
End Sub

Output

Next : Bookmark Object in Word VBA

Share on Facebook

RSS feed

Number List in Word Document using C# code example

Number List Microsoft Word offers feature by which you can auto number your list in various formats. In this article we will write code to dynamically generate a numbered list in a document using C#. C# Code example Note: You have to add Microsoft Word Interop library as reference to enable Using statement or create […]

Sorting in Microsoft Word using VBA (Visual Basic for Applications)

Sorting Do you know, Microsoft Word has capability to perform sorting over a document. In this article we will write code to sort paragraphs in Alphabetical order using visual basic for applications code. Before code Code example Put above code in a module, Select number of paragraphs that you would like to sort in A-Z […]

EPPlus Open Office Xml Office solution using C#

EPPlus Is an open Office XML solution, highly useful library capable to manipulate Microsoft Excel similar to Introp APIs. Why EPPlus? As per Microsoft the solutions (Excel, Word, PowerPoint, Outlook etc) built for client architecture but what about Servers? Let’s take an example that I have recently faced and EPPlus helped me a lot here. […]

String vs StringBuilder C#.Net with code example

String C# class which offers capability to store any type of string data into a variable. Strings are immutable (non-modifiable) cause performance overhead because each time we modify a string it creates a copy of modified instance into the memory, hence, as a practice string should be avoided for large string operations. Following is the […]

Var vs. Dynamic C# with code example

Var vs. Dynamic C# offers variety with flavors to accomplish the task to the developers. var keyword defines a static nature which gets resolve at compile-time introduced in C# 3.0 where dynamic gets resolved at runtime introduced in C# 4.0. Var is a statically type variable, which means values of these variables gets decoded at […]

Multi-threading in C#.Net with step by step code example

Multi-threading Is a concept to execute multiple tasks or process simultaneously. Basically multi-threading enables paths to your application to execute multiple processes. Multi-threading can be achieved in C# using System.Threading name space which provides complete control over threading. Let’s write example code where we will execute two different methods to print numbers using loop and […]

Create a progress bar in Excel using VBA (Visual Basic for Applications)

Progress bar In this article we will create one progress bar using Excel vba with step by step example. User can change feel and look of the UserForm as per their need and mimic the logic to fit in their solution. Design Insert a user form Add one label on it and change Caption property […]

Get Count of Cells based on Color Excel Add-in using VBA

Cells Color If you have lots of data bifurcated using colors, this post will help you to get quick analysis done over the data based on color. In this article we will write a user defined function which get count of cells based on color using VBA. Input Data Code example Implementation Output Next >> […]

Auto Reply in Outlook Add-in using VBA code example

Auto Reply Feature helps user to set automatic reply to the sender when you are away from your outlook mailbox. Conceptually, auto reply instructions saved on the Outlook Exchange Server having (Start Date/time, End Date/time a default message). Prerequisites Outlook redemption library which can be downloaded from here. Code example Next >> Filter meetings based […]

Filter Meetings in Outlook Add-in using Visual Basic for Applications

Filter If you need to filter meetings based on date, company name, subject etc, Outlook VBA offers Restrict method which takes filter criteria and provide calendar items as a result which you can take for further manipulation as given in below code. Where we are iterating all the appointments or calendar tasks for specific date. […]

Microsoft Word Table Object VBA Code example

Table

Code example

Code example

Output

Code example

Output

Iterate tables

Text to table

Nested table

Code example

Output

Leave a Reply Cancel reply

Sorting in Microsoft Word using VBA (Visual Basic for Applications)

Create a progress bar in Excel using VBA (Visual Basic for Applications)

Get Count of Cells based on Color Excel Add-in using VBA

Auto Reply in Outlook Add-in using VBA code example

Filter Meetings in Outlook Add-in using Visual Basic for Applications

RSS feed

Subscribe to our articles