Replace style in all tables in a word document.

Guessed · #1 04-02-2019, 04:25 PM

In that case, you must also have other shapes in your document that don't contain text frames. Try this klunky version to handle that

Code:

Sub ApplyTableStyle()
  Dim t As Table, aShp As Shape
  For Each t In ActiveDocument.Tables
    t.Style = "Light Shading - Accent 3"
  Next
  On Error GoTo JumpJump
  For Each aShp In ActiveDocument.Shapes
    For Each t In aShp.TextFrame.TextRange.Tables
      t.Style = "Light Shading - Accent 3"
    Next t
JumpJump:
    Err.Clear
  Next aShp
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using tables in a Word document	oldyeller1938	Word Tables	4	03-17-2018 01:42 AM
Tables in Word Document - Formatting	Networkrail	Word Tables	0	08-22-2017 05:49 AM
When changing table style in Word 2010, font size seems to change but doesn't show in new tables	heartsoulliving	Word	1	12-07-2016 05:17 PM
Adding tables to Created word document whilst other word document open Help	rpb925	Word VBA	18	03-30-2016 04:45 PM
Use multiple style sets in the same Word document (depending on which section the style is in)	Ricyteach	Word VBA	6	03-09-2015 07:11 PM