Change Table Style from Table 5 Onwards.

mc1903 · #1 01-08-2021, 07:14 AM

Hi,

I am looking to swap the table style for table #5 onwards only if it matches a specific style.

This changes the style for ALL tables with using the 'Bad Table 1'; which includes tables 2 & 3 which I need to keep as the 'Bad Table 1' style (long boring story).

I am sure it is something stupid; but my VBA skills are basic and I am frankly amazed I got this far!

Anyone have 10 mins to help me please?

Code:

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

Any pointers will be appreciated.

Thanks

M

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