Tables

In Word Documents

Introduction

Tables can be selected by number (i.e. table index) or title.

Word VBA Add Table

Subroutine that adds table to new document.

Sub addTable_Example1()Dim myRange As Word.RangeSet myRange = wordDoc.Range(Start:=0, End:=0)wordDoc.Tables.Add Range:=myRange, NumRows:=1, NumColumns:=5End Sub
Sub addTable_Example2()wordDoc.ActivateDim myRange As Word.RangeSet myRange = ActiveDocument.Range(0, 0)ActiveDocument.Tables.Add Range:=myRange, NumRows:=1, NumColumns:=5End Sub

Word VBA Setting Table Title

Right-click the table, select Table Properties, select the Alt Text tab, and type in the title.

See example screenshots here.

Word VBA Selecting Table by Index

Set an index variable and select the table directly.

Dim tableIndex As IntegertableIndex = [table index number]Tables(tableIndex).Select

Word VBA Selecting Table by Title

Loop through every top-level table in the document.

If the tables are nested, loop through each nest level.

Sub RUN_ME()
'Define variablesDim tableTitle As String: tableTitle = "mytabletitle"
'Set ActiveDocument.Selection = table with "mytabletitle"selectTable (tableTitle)
End Sub
Sub selectTable(tableTitle As String)
'Loop through every top-level table in documentDim i As LongFor i = 1 To ActiveDocument.Tables.Count If (Tables(i).Title = tableTitle) Then 'Select the first table with a matching title Tables(i).Select i = ActiveDocument.Tables.Count MsgBox ("found it") End IfNext i
End Sub

Setting a Table Cell as PASS / FAIL

Using the Cell Object.

Function passfailTableCell(passTrue_failFalse As Boolean, tCell As Object) As Boolean
'Format position and spacingtCell.Range.Style = ActiveDocument.Styles("No Spacing")tCell.Range.ParagraphFormat.Alignment = wdAlignParagraphCentertCell.VerticalAlignment = wdCellAlignVerticalCenter
If passTrue_failFalse Then 'Format Green tCell.Range.Font.TextColor.RGB = RGB(0, 97, 0) tCell.Shading.BackgroundPatternColor = RGB(198, 239, 206) tCell.Range.text = "PASS"Else 'Format Red tCell.Range.Font.TextColor.RGB = RGB(156, 0, 6) tCell.Shading.BackgroundPatternColor = RGB(255, 199, 206) tCell.Range.text = "FAIL"End IfEnd Function

Word VBA Setting Table Cell Text and Formatting

Using the Cell Object.

'Define the variableDim tCell As Object
'Set the variableSet tCell = wordDoc.Tables(tableIndex).Cell(rIndex, cIndex)
'No spacingtCell.Range.Style = ActiveDocument.Styles("No Spacing")
'Set horizontal alignmenttCell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
'Set vertical alignmenttCell.VerticalAlignment = wdCellAlignVerticalCenter
'Set font colortCell.Range.Font.TextColor.RGB = RGB(0, 97, 0)tCell.Range.Font.TextColor.RGB = RGB(156, 0, 6)
'Set background colortCell.Shading.BackgroundPatternColor = RGB(198, 239, 206)tCell.Shading.BackgroundPatternColor = RGB(255, 199, 206)
'Set texttCell.Range.text = "ACCEPT"tCell.Range.text = "REJECT"

Word VBA AutoFormat and UpdateAutoFormat

'Applies table formatTables(tableIndex).AutoFormat (wdTableFormatClassic1)
'Update format after editing tableTables(tableIndex).UpdateAutoFormat

Word VBA Add Rows to Table

Add a specific number or rows to a table.

Sub addRowsToTable(numberOfEntries As Integer, tableIndex As Integer)
'Add one to account for table header rownumberOfEntries = numberOfEntries + 1
'Add rowsDo Until Tables(tableIndex).Rows.Count = numberOfEntriesTables(tableIndex).Rows.AddLoop
End Sub

Word VBA Find Table Index Given Title, Top Level

A function that returns the index of the first table with a matching title.

Function tableIndex_TopLevel(tableTitle As String) As Integer
'Default return value is zerotableIndex_TopLevel = 0
'Loop through all tables at top levelDim i As IntegerFor i = 1 To ActiveDocument.Tables.Count'Stop looping at the first table with a matching title If (Tables(i).Title = tableTitle) Then tableIndex_TopLevel = i i = ActiveDocument.Tables.Count End IfNext i
End Function

Page updated

Google Sites

Report abuse