Macro to Replace Table Styles in Microsoft Word

Q

How to find and replace all instances of a table style with another with a macro Microsoft Word? I have a large document with many tables. My boss wants me to replace the style on all tables.

✍: FYIcenter.com

A

If you want to do global replacement of a table style in Microsoft Word you can write a Macro to get it done. The "Find and Replace" dialog box does not support table style replacement.

1. Click "Developer" > "Macros". You see the macros management screen.

2. Enter "FindAndReplaceTableStyle" as the name of the new macro and click "Create" button. You see the "Microsoft Visual Basic for Applications" screen.

3. Enter the following code in the Code area:

Sub FindAndReplaceTableStyle()
  Dim t As Table
  For Each t In ActiveDocument.Tables
    If t.Style.NameLocal = "Table Dark" Then
      t.Style = "Table Gray"
    End If
  Next t
End Sub

4. Click "Run" icon to execute the macro. You see all tables changed from "Table Dark" to "Table Gray" style.

⇒ Attach Style Template File in Microsoft Word

⇐ Demote Heading Levels in Microsoft Word

⇑ Using Styles in Microsoft Word

⇑⇑ MS Word - Frequently Asked Questions

2016-06-25, ∼2674🔥, 0💬

Header/Footer Design Options in Microsoft Word
What are header and footer design options in Microsoft Word? I want to learn more about creating headers and footers. Microsoft Word does support a number of design options on how to create headers and footers. Here is a high level summary: 1. A dedicated menu for headers and footers. Double-click i... 2016-06-25, ∼6123🔥, 0💬

Demote Heading Levels in Microsoft Word
How to demote heading levels for the entire document in Microsoft Word? I have a document with many chapters and sections defined with "Heading 1" and "Heading 2" styles. Now I want to organize chapters into "Parts". This requires me to change sections to be "Heading 3", chapters to be "Heading 2", ... 2016-06-25, ∼5854🔥, 0💬

Add Page Number in Footer in Microsoft Word
How to add page number in the footer area of each page in Microsoft Word? The quickest way to add page number to the footer area of each page in Microsoft Word is to follow these steps: 1. Click "Insert > Page Number". You see page number options on the screen. 2. Select "Bottom of Page". You... 2016-06-25, ∼5580🔥, 0💬

Hide Styles in Microsoft Word
How to hide styles in Microsoft Word? I want to hide other Microsoft styles in my template so others can only use my styles. If you have developed your own style in a template and want to others to use only your styles, you can use these steps to hide other styles: 1. Click Home > More style ... 2016-06-25, ∼5382🔥, 0💬

Block Direct Formatting in Microsoft Word
How to stop users to use direct formatting in Microsoft Word? I created a style template and I don't want others to use direct formatting on top of my styles. If you have created a nice style template for your company and want others to use it and follow those styles. You can follow these steps to b... 2016-10-29, ∼4526🔥, 0💬

Location of Backup Files in Notepad++
Where are Notepad++ backup files located on Windows? I want to recover my file after Notepad++ crashed. By default, Notepad++ backup files are located at: %AppData%\Notepad++\backup on Windows system. On Windows 7 systems, %AppData% is: C:\Users\username\AppData\Roam ing\.So the backup file location... 2016-06-25, ∼3370🔥, 0💬

Adopt Style Template File in Microsoft Word
How to adopt a Style Template File in Microsoft Word? I have an existing document and I want the entire document to follow styles defined in an style template file. If you want to adopt a new style template file on an existing Microsoft Word document, you can follow these steps: 1. Open the existing... 2016-06-25, ∼2874🔥, 0💬

Replace a Style with Another in Microsoft Word
How to replace a style with another style to reformat my document in Microsoft Word? I have a large document that uses the "Normal" style for all paragraphs. But I boss want me to use the "Plain Text" only. The best way to replace a style with another in Microsoft Word is to use the "Find and Replac... 2016-06-25, ∼2748🔥, 0💬

Macro to Replace Table Styles in Microsoft Word
How to find and replace all instances of a table style with another with a macro Microsoft Word? I have a large document with many tables. My boss wants me to replace the style on all tables. If you want to do global replacement of a table style in Microsoft Word you can write a Macro to get it done... 2016-06-25, ∼2675🔥, 0💬

All rights in the contents of this web site are reserved by the individual author. fyicenter.com does not guarantee the truthfulness, accuracy, or reliability of any contents.