Loading

How to select all tables in a Microsoft Word Document

It seems it’s impossible to do it from the user interface. But I found here that it could be done using a VB Macro:

Sub ChangeAllTablesToNormal()
Dim myTable As Table
   For Each myTable In ActiveDocument.Tables
      myTable.Select
      Selection.Style = ActiveDocument.Styles("Normal")
   Next myTable
   ActiveDocument.Repaginate
End Sub

You may try to change ActiveDocument.Styles("Normal") to ActiveDocument.Styles("Tables Normal") as suggested by Abhishek if it doesn’t work for you.

2 Comments

  1. Posted November 26, 2008 at 3:01 am | Permalink

    how would I change this to make all the tables outlines disappear? so the table’s lines don’t appear? any idea? thanks

  2. Abhishek
    Posted October 7, 2009 at 11:52 am | Permalink

    Worked but after i changed
    ActiveDocument.Styles(“Normal”)
    to
    ActiveDocument.Styles(“Table Normal”)

Post a Comment

Your email is never shared.