Applying a VBA code only on a selected table

RobertDany · #3 10-25-2021, 02:59 AM

Quote:

Originally Posted by gmayor

You need to exit the sub before the error message.

Thank you very much

Just to learn and according to your instructions, the code will be

Code:

Sub FormatTable()
'
On Error GoTo ErrMsg
    Selection.Tables(1).Select
    With Selection.Tables(1)
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleThinThickSmallGap
            .LineWidth = wdLineWidth300pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleThinThickSmallGap
            .LineWidth = wdLineWidth300pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleThinThickSmallGap
            .LineWidth = wdLineWidth300pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleThinThickSmallGap
            .LineWidth = wdLineWidth300pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
    Selection.Font.Bold = wdToggle
    Selection.Font.BoldBi = wdToggle
    Selection.Font.Size = 14
    Selection.Font.Name = "Times New Roman"
Exit Sub
ErrMsg: MsgBox "Select a Table Firstly", vbCritical

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Applying a VBA code only on a selected text or range	RobertDany	Word VBA	2	10-09-2021 08:31 AM
Run code if selected cell is in column	Javi78503	Word VBA	0	09-21-2021 12:31 PM
Applying a style to a table row pops out the row	mazloum91	Word Tables	2	06-29-2021 07:21 AM
run code only when certain cells selected	trevorc	Excel	2	06-19-2018 02:40 AM
After applying a title style, the row in a table doesn't break	Salix	Word	6	05-05-2016 12:48 PM