How to Use Word VBA to Apply Conditional Formatting Across All Tables

You need to apply the same conditional formatting rules to every table in a Word document, but doing it manually for dozens or hundreds of tables is impractical. Word does not have a built-in conditional formatting feature like Excel, so you must use VBA to automate the task. This article explains how to write and run a VBA macro that scans all tables in the active document and applies cell formatting based on cell values or other conditions. You will learn the exact code, how to modify it for your rules, and how to avoid common pitfalls.

Understanding Word VBA for Table Formatting

Word VBA (Visual Basic for Applications) is a programming language embedded in Microsoft Office applications. You can use it to automate repetitive formatting tasks that are not possible with built-in Word features alone. Conditional formatting in tables is one such task. Unlike Excel, Word does not have a conditional formatting dialog. Instead, you write a macro that loops through every cell in every table, checks a condition (such as a cell value, formula result, or cell property), and then applies formatting like background color, font color, or bold.

Before writing the macro, you need to enable the Developer tab in Word. Go to File > Options > Customize Ribbon, then check the Developer box. The Developer tab gives you access to the Visual Basic editor and macro tools. You also need to save your document as a macro-enabled file with the .docm extension. If you save as .docx, all VBA code will be stripped.

Prerequisites for Running VBA Macros

Your Word security settings must allow macros. Go to File > Options > Trust Center > Trust Center Settings > Macro Settings. Select Enable all macros (not recommended for untrusted code) or Disable all macros with notification and then allow the macro when prompted. For documents you create yourself, the first option is safe and convenient. For documents from other sources, review the code before enabling.

Steps to Write and Run a Conditional Formatting Macro

The following steps guide you through creating a macro that highlights all cells in every table where the cell value is greater than 100. You can adapt the condition and formatting to your needs.

1. Open the VBA editor
   Press Alt+F11 on your keyboard. The Visual Basic for Applications window opens. If the Project Explorer pane is not visible, press Ctrl+R to show it.
2. Insert a new module
   In the Project Explorer, right-click Normal or your document name under Project. Choose Insert > Module. A blank code window appears.
3. Paste the conditional formatting code
   Copy and paste the following code into the module window:

   Sub FormatTablesConditional()
       Dim tbl As Table
       Dim cell As Cell
       Dim cellValue As Variant
       
       For Each tbl In ActiveDocument.Tables
           For Each cell In tbl.Range.Cells
               ' Convert cell range text to a number for comparison
               cellValue = Val(cell.Range.Text)
               
               ' Check condition: value greater than 100
               If cellValue > 100 Then
                   ' Apply yellow background color
                   cell.Range.Shading.BackgroundPatternColor = wdColorYellow
                   ' Optional: make font bold
                   cell.Range.Font.Bold = True
               End If
           Next cell
       Next tbl
       
       MsgBox "Conditional formatting applied to all tables."
   End Sub
   

4. Run the macro
   Press F5 while the cursor is inside the macro code, or go to the Developer tab in Word, click Macros, select FormatTablesConditional, and click Run. The macro processes every table in the active document.
5. Save the document as macro-enabled
   Press Ctrl+S. In the Save As dialog, choose Word Macro-Enabled Document (.docm) from the Save as type dropdown. Name your file and click Save.

Modifying the Condition and Formatting

To change the condition, edit the line If cellValue > 100 Then. For example, use If cellValue < 50 Then for values under 50, or If cellValue = 0 Then for empty or zero cells. To compare text, replace Val(cell.Range.Text) with Trim(cell.Range.Text) and use string comparisons like If Trim(cell.Range.Text) = "Overdue" Then.

To change the formatting, modify the lines inside the If block. For background color, replace wdColorYellow with other constants such as wdColorRed, wdColorGreen, or wdColorBlue. For font color, use cell.Range.Font.Color = wdColorRed. For cell borders, use cell.Range.Borders.Enable = True with additional border properties.

Common Issues When Running VBA Table Macros

Even with correct code, you may encounter problems. The following sections cover the most frequent issues and their solutions.

Macro Does Nothing or Skips Tables

Ensure the document contains tables. The macro loops through ActiveDocument.Tables. If the count is zero, no formatting occurs. Add a debug line: Debug.Print ActiveDocument.Tables.Count in the Immediate window (Ctrl+G) to verify. Also check that the document is not protected. If the document has editing restrictions, the macro may fail.

Error: Run-time Error 5941 or 4605

These errors occur when the macro tries to access a table or cell that does not exist. This can happen if you delete a table inside a loop without adjusting the collection. To avoid this, do not delete tables inside the loop. If you need to delete rows or cells, loop backwards from the last table to the first using a For loop with Step -1.

Cell Value Includes Paragraph Mark

The cell.Range.Text property includes a paragraph mark at the end, which causes Val() to read only the numeric part. For text comparisons, use Trim(cell.Range.Text) to remove leading/trailing spaces and the paragraph mark. For numeric comparisons, Val() already handles this, but if the cell contains non-numeric characters, Val() returns 0 and may trigger false positives. In that case, use IsNumeric() to check first.

VBA Conditional Formatting vs Manual Formatting

Item	VBA Macro	Manual Formatting
Setup time	10-15 minutes to write code	Seconds per table, hours for many tables
Consistency	Exactly same rules for all tables	Prone to human error and variation
Reusability	Run again on new data with one click	Must redo formatting each time
Skill required	Basic VBA knowledge	No coding required
File type	Requires .docm format	Works with any .docx file

The VBA approach is far more efficient for documents with many tables or when data updates regularly. Manual formatting is better for one-off documents with only one or two tables.

You can now apply conditional formatting to every table in a Word document using VBA. Start by copying the provided macro, then adjust the condition and formatting properties to match your data. For more advanced automation, explore using Select Case statements for multiple conditions or applying formatting to entire rows instead of single cells. A concrete next step is to save your macro in the Normal.dotm template so it is available for all future documents.