Change Table Style from Table 5 Onwards.

mc1903 · #2 01-08-2021, 08:36 AM

Managed to 'fix' it myself with some Power Googling :-)

Code:

Sub Table5OnwardSwap()
    Application.ScreenUpdating = False
    Dim tblcount As Integer
    Dim tbl As Table
    For tblcount = 5 To ThisDocument.Tables.Count
        Set tbl = ThisDocument.Tables(tblcount)
            If tbl.Style = "Bad Table 1" Then
                tbl.Style = "Grid Table 4 - Accent 1"
                tbl.ApplyStyleRowBands = False
            End If
    Next
    Application.ScreenUpdating = True
    Set tbl = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Want to copy & paste a table underneath itself x no. of time, table found through style heading name	fly545	Word VBA	11	01-16-2020 05:53 PM
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
how to apply table style WITHOUT setting it as a table?	dylansmith	Excel	9	05-16-2014 07:25 PM
Can't change color of text in table style	ABode	Word	6	12-03-2013 07:45 AM
How to change style of text in table?	SCMiller	Word VBA	1	04-24-2012 08:31 AM