Macro that changes the style of all tables in document

[Amber]

I am trying to make a macro that changes the style of all tables in a document. The style it needs to be in has no borders except for the bottom border of the header row.

I've managed to get it to remove all borders, but I can't seem to figure out how to get that one border back in.

This is what I have now:

Sub tablestyle()For Each tbl In ActiveDocument.Tables


    'only do this for a table if the first paragraph in the first table cell has the style "Table Heading"
    If (tbl.Cell(1, 1).Range.Paragraphs(1).Style.NameLocal = "Table Heading") Then
        tbl.Select
        
        'set border lines to no border
        Options.DefaultBorderLineWidth = wdLineWidth150pt
        Options.DefaultBorderColor = wdColorBlue
        With Selection.Borders(wdBorderTop)
            .LineStyle = noborder


        End With
        With Selection.Borders(wdBorderLeft)
            .LineStyle = noborder


        End With
        With Selection.Borders(wdBorderBottom)
            .LineStyle = noborder
        End With
        With Selection.Borders(wdBorderRight)
            .LineStyle = noborder


        End With
        
        ' Set inside lines to no border
        Options.DefaultBorderLineWidth = wdLineWidth075pt
        Options.DefaultBorderColor = wdColorRed
        With Selection.Borders(wdBorderHorizontal)
            .LineStyle = noborder


        End With
        With Selection.Borders(wdBorderVertical)
            .LineStyle = noborder


        End With
        End If
    Next
End Sub

Let me add that this is my first time working with VBA, and my understanding of it is not that great yet.

Can anyone give me some pointers on how to make this work?

[Dave]

Hi Amber and welcome to this forum. I'm not certain, but I think you can just code the format for each table. Something like this...

With tbl
.AutoFormat Format:=16, applyborders:=True
.AutoFitBehavior (1)
End With

You can mess with the number (16) until you find the format you want. The 16 is a constant which represents different table types. Perhaps others may have a better solution. Good luck. Dave

[Souriane]

Hi!

Add this code add the end of your macro, just before the line "Next".

With tbl.Rows(1).Borders(wdBorderBottom)            
.LineStyle = wdLineStyleSingle
End With

Souriane