View Single Post
 
Old 01-08-2021, 08:36 AM
mc1903 mc1903 is offline Windows 10 Office 2016
Novice
 
Join Date: Jan 2019
Posts: 8
mc1903 is on a distinguished road
Default

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
Reply With Quote