Macro to Add Borders to Tables

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

mmikedm1000 - 28 Nov 2005 23:32 GMT

Hi,

I have tables in word documents that need to have borders around them. I am
trying to write a macro that will find the tables and add a border all around
and in the tables. Any help would be appriciated.

Thanks,

Signature

Michael

Reply to this Message

Jay Freedman - 29 Nov 2005 03:10 GMT

>Hi,
>
[quoted text clipped - 3 lines]
>
>Thanks,

You could do something like this:

Sub TableBorders()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
With oTbl.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideLineWidth = wdLineWidth225pt
.OutsideColorIndex = wdAuto
.InsideLineStyle = wdLineStyleSingle
.InsideLineWidth = wdLineWidth050pt
.InsideColorIndex = wdGray50
End With

With oTbl.Rows(1).Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
.ColorIndex = wdGray50
End With
Next oTbl
End Sub

Many more options are available -- put the cursor on the word Borders
in the code and press F1 to see the topic.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

Reply to this Message

mmikedm1000 - 29 Nov 2005 21:05 GMT

Thanks,

That worked great. I had tried defining a new talbe style with borders and
than having the macro change the style of talbes to a the new style, but that
created some strange tables.

Again,
Thanks for your help

Signature

Michael

> >Hi,
> >
[quoted text clipped - 35 lines]
> Email cannot be acknowledged; please post all follow-ups to the
> newsgroup so all may benefit.

Reply to this Message