Do this for each table found

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Nicole - 31 Mar 2004 17:30 GMT

I want to run this code for every table found in my document

Selection.Tables(1).Select
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone

I can only figure out how to do it for one table ... and I'm no good at
loops in VB.

Any suggestions?

Thanks
Nicole

Reply to this Message

Dave Lett - 31 Mar 2004 17:34 GMT

Hi Nicole,

You can try the following:

Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
With oTbl
''' it looks like you're trying to remove _all_ borders, so
''' I added wdBorderHorizontal
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
End With
Next oTbl

HTH,
Dave

> I want to run this code for every table found in my document
>
[quoted text clipped - 12 lines]
> Thanks
> Nicole

Reply to this Message

Nicole - 31 Mar 2004 17:53 GMT

Thanks that did it!

> Hi Nicole,
>
[quoted text clipped - 32 lines]
> > Thanks
> > Nicole

Reply to this Message