2 Ways to Apply the Same Style to All Tables in Your Word Document

In this post, we will look at 2 useful ways to apply the same style to all tables in your Word document.

Every so often, we need to create tables in our Word document to place and arrange various data. And if there are a number of tables, it would be better to apply the same style to them so as to make the file appear more professional. For this reason, we’d like to exhibit you 2 methods in the coming texts.

Method 1: Apply the Same Style to a Table Individually

Once you insert a table in document, put cursor inside the table to trigger the “Table Tools” tab. Then click “Design” and choose a table style in the “Table Styles” library.

However, in case you may want a novel style for your tables, you are fine to customize a new one by following the succeeding steps.

1. Firstly, click the “More” button in “Table Styles” group.
2. Then choose “New Table Style”.
3. Now in the “Create New Style from Formatting” dialog box, name the new style first.
4. Next set such formatting as font, font size, borders, Fill Color, etc.
5. And select the “New documents based on this template” option.
6. Lastly, click “OK”.

If you want to format the table template in a more unique way, take a glance at this article: 2 Methods to Alternate Row or Column Colors in Your Word Table

Method 2: Manipulate Tables in Batches

In method 2, we have a macro for you to select all existing tables in an active document. Once tables are selected, you can apply whatever style for them in batches.

1. First off, click “Developer” tab in the Ribbon.
2. Then click “Visual Basic” to trigger the VBA editor.
3. Next insert a new module by click “Normal” and then “Insert”.
4. On the drop-down menu, choose “Module”.
5. Double click new module to open coding area and paste the codes:

'Select all tables in a Word document.
Sub SelectAllTables()
  Dim objDoc As Document
  Dim objTable As Table
 
  Application.ScreenUpdating = False
 
  'Initialization
  Set objDoc = ActiveDocument
 
  'Set each table in document as a range editable to everyone.
  With objDoc
  For Each objTable In .Tables
    objTable.Range.Editors.Add wdEditorEveryone
  Next
  objDoc.SelectAllEditableRanges wdEditorEveryone
  objDoc.DeleteAllEditableRanges wdEditorEveryone
  Application.ScreenUpdating = True
  End With
End Sub

6. Finally, hit “Run” button.

Now all tables shall be selected already. You can apply a built-in or newly created style to all tables in the current document.

Cope with Word Data Loss

Loss of critical data can be a bane of people’s digital life. What’s sarcastic is we feel regret only after what’s done has been done. Since there is no use of mourning for the loss, we suggest you to get a tool to recover Word docx document error as soon as possible.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including Excel xls recovery product and pdf repair software products. For more information visit www.datanumen.com