MS Word related VBA

[Fulminare]

Hello !

I didn't know that MS Word supported VBA.

There are tables with some data.

Is it possible to make the horizontal lines of the table disappear ? (only the vertical lines must remain)

Regards

[Kaper]

Such macro would do the job:

Sub test()
Dim t As Table
For Each t In ActiveDocument.Tables
    t.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    t.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    t.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
    t.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    t.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    With t.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With t.Borders(wdBorderRight)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With t.Borders(wdBorderVertical)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
Next
End Sub

[Fulminare]

Thanks a lot Kaper !

You saved me a lot of trouble


Regards.

[Kaper]

Glad to hear so and thanks for reutation point and for marking thread SOLVED